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* * * * * ************************************************************ 

* * 

* Cbios for CP/M Ver 2.2 for Disk Jockey 2D Mod. B 

* controller. Handles diskettes with sector sizes of 128 * 

* bytes single density, 256, 512, 1024 bytes double * 

* density. There are conditional assemblies for the * 

* Diskus Hard Disk Controller. * 

* * 

* Note: The system diskette (drive A:) has to have 1024 * 

* byte sectors in order for the cold and warm boot * 

* loaders to work. Be sure to format all new * 

* system diskettes with 1024 byte sectors. The * 

* system diskette can be either single or double * 

* sided. The sector size on normal (non A: drive) * 

* diskettes can be 128, 256, or 1024 bytes in * 

* either single or double density. * 

* * 

* Software engineering, Morrow Designs 11/81 * 

* * 
***************************************************************** 

title '*** Cbios For CP/M Ver. 2.2 ***' 

revnum equ 29 ;Cbios revision number 2.9 

cpmrev equ 22 ;CP/M revision number 2.2 

***************************************************************** 

* The following equates define the console and printer * 

* environments . * 
***************************************************************** 

***************************************************************** 

* * 

* Define the console driver to be used. * 

* * 

* contyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O or Decision I driver. * 

* 3 2D/B driver. * 

* * 

***************************************************************** 

contyp equ 2 

***************************************************************** 

* * 

* Define the printer driver to be used. * 

* * 

* lsttyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O serial, no protocol. * 

* 3 Multi I/O serial, CTS protocol. * 

* 4 Multi I/O serial, DSR protocol. * 

* 5 Multi I/O serial, Xon / Xoff protocol. * 

* 6 Multi I/O parallel, Centronics. * 

* 7 Multi I/O parallel, Diablo HyType II. * 

* * 

* Note: The Decision board is functionally identical to the * 

* Multi I/O board for printer I/O. Selections 2-6 * 

* will work on the Decision I. * 

* * 

***************************************************************** 



lsttyp equ [ **& J 



** ******************************** **** *************************** 

* * 

* 
* 
* 
* 
* 
* 



* The next equate determines if you have a Multi I/O Rev 3 

* or a Decision I mother board for parallel i/o. If are not 

* using either of these boards then you need not worry about 

* this equate. If you are using a Multi I/O rev. other than 

* 3.x then you should set multr3 to 0. 



***************************************************************** 



multr3 equ 







if contyp eq 2 

congrp equ 1 
endif 

if lsttyp ge 2 

lstgrp equ 3 . 
endif 



;0 = Decision, 1 = Multi I/O 

;Cosole port (1 = pi, 2 = p2, 3 = p3) 

; Printer port (1 - pi, 2 = p2, 3 = p3 ) 



***************************************************************** 

* * 

* The following equates set up the relationship between the * 

* 2D floppies and the Hard Disk Controllers. * 

* * 
***************************************************************** 



first 



equ 



maxhd equ 
max flop equ 



M26 


equ 


M20 


equ 


M10F 


equ 


M10M 


equ 




;0 = Floppies are A,B,C,D drives and 

Hard Disk are E,F,G,H 
;1 = Hard Disks are A,B,C,D drives and 
; Floppies are E,F,G,H 
;Set to number of hard disks 
;Set to number of floppies 

;Set only one of these variables 



ml0 



equ 



ml0f or ml 0m 



***************************************************************** 

* * 

* 
* 
* 
* 
* 
* 
* 

* * 
***************************************************************** 



* The next equate will set the number of logical disks on a 

* physical hard disk drive. The user must set stdlog to a 

* vaule greater than or equale to 2 for an ml0 or 3 for an 

* m20 or m26. The reason for this is that CP/M can not 

* address more than 8 megabytes per logical disk and 

* splitting a disk to less then 2 or 3 parts would make 

* partitions that are greater than 8 megabytes in length. 



stdlog equ 

if 
logdsk equ 

else 
logdsk equ 

endif 

fujitsu equ 
mrev equ 

hdspt equ 





stdlog ne 
stdlog 

3*rn26+3*m20+2*ml0 



ra20 or ml0f 
26*m26+20*m20+10*ml0 

32*m26+21*m20+21*ml0 



;Set to to use standard logical disks 



;Set to number of user selected 

; logical disks 

;Default logical disks per drive 



;Hard disk type 
; Sectors per track 



****************************************************** * * ********* 

* * 

* The following equates relate the Morrow Designs 2D * 

* controller. If the controller is non standard (0F800H) * 

* only the ORIGIN equate need be changed. * 

* •'.■■.■■* 
***************************************************************** 



origin 

djram 

djboot 

d jcin 

djcout 

djhome 

djtrk 

djsec 

d jdma 

djread 

djwrite 

djsel 

djtstat 

d jstat 

d jerr 

djden 

djside 

dblsid 

io 

dreg 

cmdreg 

clrcmd 



if 


max flop ne ; 


equ 


0F800H 


equ 


origin+400h ; 


equ 


origin ; 


equ 


origin+3h ; 


equ 


origin+6h ; 


equ 


origin+9h 


equ 


origin+0eh ; 


equ 


origin+0fh ; 


equ 


origin+012h ; 


equ 


origin+15h ; 


equ 


origin+18h 


equ 


origin+lbh ; 


equ 


origin+21h ; 


equ 


origin+27h ; 


equ 


origin+2ah ; 


equ 


origin+2dh ; 


equ 


origin+30h ; 


equ 


8 


equ 


origin+3f8h ; 


equ 


io+1 


equ 


io+4 


equ 


0d0h 


endif 





? Include Discus 2D ? 

Disk Jockey 2D RAM address 

Disk Jockey 2D initialization 

Disk Jockey 2D character input routine 

Disk Jockey 2D character output routine 

Disk Jockey 2D track zero seek 

Disk Jockey 2D track seek routine 

Disk Jockey 2D set sector routine 

Disk Jockey 2D set DMA address 

Disk Jockey 2D read routine 

Disk Jockey 2D write routine 

Disk Jockey 2D select drive routine 

Disk Jockey 2D terminal status routine 

Disk Jockey 2D status routine 

Disk Jockey 2D error, flash led 

Disk Jockey 2D set density routine 

Disk Jockey 2D set side routine 

Side bit from controller 

Start of I/O registers 



***************************************************************** 

* * 

* The following block will define cerain 2DB entry points in * 

* case the user is not actually using the 2DB's disks but is * 

* using the 2DB's console driver PROM. * 

* . ,. * 

***************************************************************** 

if (max flop eq 0) and (contyp eq 3) 
origin equ 0F800H 

djcin equ origin+3h ;Disk Jockey 2D character input routine 
djcout equ origin+6h ;Disk Jockey 2D character output routine 
djtstat equ origin+21h ;Disk Jockey 2D terminal status routine 

endif 

***************************************************************** 

* * 

* The following equates are for the Diskus Hard disk wanted. * 

* * 
***************************************************************** 





if 


maxhd ne 


hdorg 


equ 


50h 


hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hddata 


equ 


hdorg+3 


hdf unc 


equ 


hdorg+2 


hdcmnd 


equ 


hdorg+1 


hdreslt 


equ 


hdorg+1 


retry 


equ 


2 


tkzero 


equ 


1 


opdone 


equ 


2 


r«omol +■ 


«nn 


A 



rWant Hard Disk included 7 

fHard Disk Controller origin 

tHard Disk Status 

rHard Disk Control 

rHard Disk Data 

r Hard Disk Function 

;Hard Disk Command 

;Hard Disk Result 

; Retry bit of result 

; Track zero bit of status 

rOperaetion done bit of status 

• rnmnl of o hi f r\-f a-h^-f-nG 



tmout 


equ 


8 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


index 


equ 


40h 


pstep 


equ 


4 


nstep 


equ 


0fbh 


hdrlen 


equ 


4 


seclen 


equ 


512 


wenabl 


equ 


0fh 


wreset 


equ 


0bh 


scenbl 


equ 


5 


dskclk 


equ 


7 


radir 


equ 


0f7h 


null 


equ 


0fch 


idbuff 


equ 





isbuf f 


equ 


8 


rsect 


equ 


1 


wsect 


equ 
endif 


5 



Time out bit of status 
Write fault bit of status 
Drive ready bit of status 
Index bit of status 
Step bit of function 
Step bit mask of function 
Sector header length 
Sector data length 
Write enable 
Write reset of function 
Controller control 
Disk clock for control 
Direction mask for function 
Null command 
Initialize data command 
Initialize header command 
Read sector command 
Write sector command 



******************************************************* 

* * 

* The folowing equates will define the Decision I mother * 

* board I/O or the Multi I/O environments if needed. * 

* * 

***************************************************************** 



(contyp eq,2) or (lsttyp ge 2) ; Multi I/O board used? 



multio 


equ 




if 


mbase 


equ 


grpsel 


equ 


dll 


equ 


dim 


equ 


ler 


equ 


elk 


equ 


lcr 


equ 


lsr 


equ 


msr 


equ 


rbr 


equ 


thr 


equ 


dlab 


equ 


thre 


equ 


cts 


equ 


dsr 


equ 


dr 


equ 


wls0 


equ 


wlsl 


equ 


stb 


equ 



multio 

48h 

mbase+7 

mbase 

mbase+1 

mbase+1 

mbase+2 

mbase+3 

mbase+5 

mbase+6 

mbase 

mbase 

30h 

20h 

10h 

20 h 

1 

1 

2 

4 



jDefine Multi I/O environment 

xBase address of Multi I/O or Decision I 

; Group select port 

;Divisor (lsb) 

; Divisor (msb) 

;Interupt enable register 

;WB14 printer select port 

;Line control register 

;Line status register 

;Read data buffer 

;Tranmitter data buffer 

; Divisor latch access bit 

; Status line THRE bit 

; Clear to send 

;Data set ready 

;Line status DR bit 

;Word length select bit 

;Word length select bit 1 for 8 bit word 

;Stop bit count - 2 stop bits 



Define multi I/O ports addresses for group zero 



gzero 


equ 





daisy0 


equ 


mbase 


daisyl 


equ 


mbase+1 


sensesw 


equ 


mbase+1 




if 


multr3 eq 


daisi0 


equ 


mbase 


daisil 


equ 
else 


rnbase+1 


daisi0 


equ 


mbase+1 


daisil 


equ 
endif 


mbase 



; Daisy input ports 

; Sense switches 

Daisy output ports are different 
for Decision I and Multi I/O. 
These two are the Decision I ports 

and these are the Multi l/0's. 
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;End of ribbon 

; Paper out 

; Cover open 

; Paper feed ready 

; Carriage ready 

; Print wheel ready 

; Printer check (error) 

; Printer ready 

Define daisy status input bits for Diablo HyType II driver 



ribbon 


equ 


01h 


paper 


equ 


02h 


cover 


equ 


04h 


pfrdy 


equ 


08h 


crrdy 


eqU 


10h 


pwrdy 


equ 


20h 


check 


equ 


40h 


ready 


equ 


80h 



crstrd equ 1020h 
pfstrd equ 810h 
pwstrd equ 2040h 



; Carriage ready 
; Paper feed ready 
; Print wheel ready 



Define daisy output bits 



d9 


equ 


01h 


dl0 


equ 


02h 


dll 


equ 


04h 


dl2 


equ 


08h 


pfstb 


equ 


10h 


crstb 


equ 


20h 


pwstb 


equ 


40h 


restore 


equ 


80h 



;Data bit 9 

;Data bit 10 

;Data bit 11 

;Data bit 12 

; Paper feed strobe 

; Carriage strobe 

; Print wheel strobe 

; Printer restore (Ribbon lift on Multi I/O) 



Define clock select bits 



rlift equ 40h 
pselect equ 80h 



; Ribbon lift 

.•Select (Not used by Diablo) 



Define group select bits 



S0 


equ 


01h 


si 


equ 


02h 


srnask 


equ 


03h 


bank 


equ 


04h 


enint 


equ 


08h 


restor 


equ 


10h 


denable 


equ 


20h 



; Group number (0-3) 



;Printer restore on Multi I/O 
; Driver enable on Multi I/O 



Define special constants for the HyTyp II driver 



cperi 


equ 


10 


lperi 


equ 


6 


hinc 


equ 


120 


vine 


equ 


48 


numtabs 


equ 


160 


maxchrs 


equ 


1024 


maxrgt 


equ 


1584 


dfrmln 


equ 


110 


autolf 


equ 






; Default to 10 characters per inch 

; Default lines per inch 

; Horizontal increments per inch 

; Vertical increments per inch 

; Number of horizontal tabs 

; Maximum number of printer characters to queue 

; Maximum carriage position 

; Forms length times 10 

; Default to no Auto line feed. 



endif 

************************************************************ 

* * 

* CP/M system equates . If reconfiguration of the CP/M system * 

* is being done, the changes can be made to the following * 

* equates. * 



***************************************************************** 



msi 7. e» 



Zl« 
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*1024 ; Memory offset from 20k system 
; Console command processor 
;BDOS address 
;Cbios address 
; Offset for syscjen 
;Address of last logged disk 
; Default buffer address 
; Transient memory 
; Initial IOBYTE 
;IOBYTE location 
;Warm boot jump address 
;BDOS entry jump address 

***************************************************************** 

* * 

* The following are internal Cbios equates. Most are misc. * 

* constants. * 

* * 
***************************************************************** 



bias 


equ 


(msize-20) 


ccp 


equ 


2500h+bias 


bdos 


equ 


ccp+800h 


bios 


equ 


ccp+1600h 


of f setc 


equ 


2100h-bios 


cdisk 


equ 


4 


buff 


equ 


80h 


tpa 


equ 


100h 


intioby 


equ 





iobyte 


equ 


3 


wbot 


equ 





entry 


equ 


5 



retries 


equ 


10 


clear 


equ 


'Z'-64 


anul 


equ 





aetx 


equ 


'C-64 


aack 


equ 


•F'-64 


abel 


equ 


'G'-64 


abs 


equ 


'H'-64 


aht 


equ 


'I'-S4 


acr 


equ 


'J' -64 


avt 


equ 


'K'-64 


aff 


equ 


'L'-64 


alf 


equ 


'M'-64 


xon 


equ 


«Q'-64 


xof f 


equ 


, S , -64 


aesc 


equ 


lbh 


ars 


equ 


leh 


aus 


equ 


lfh 


asp . 


equ 




adel 


equ 


7fh 



;Max retries on disk i/o before error 
; Clear screen on an ADM 3 



Null 

ETX character 

ACK character 

Bell 

Back Space 

Horizontal tab 

Carriage return 

Vertical tab 

Form Feed 

Line feed 

Xon character 

Xoff character 

Escape character 

RS character 

US character 

Space 

Delete 



***************************************************************** 

* * 

* The jump table below must remain in the same order, the * 

* routines may be changed, but the function executed must be * 

* the same . * 

* * 

***************************************************************** 



org 



bios 



; Cbios starting address 





3 mp 


cboot 




wboote 


]mp 


wboot 






if 


contyp 


ne 


const 


3^p 


cstty 




cm 


Dmp 


cif lsh 




cout 


else 


cotty 






]mp 


$ 




cm 


limp 


$ 




cout 


Dmp 

endif 


$ 






if 


Isttyp 


ne 



;Cold boot entry point 
;Warm boot entry point 



.•Console status routine 
.•Console input 
; Console output 

; Console status routine PROM pointer 
; Console input PROM pointer 
; Console output PROM pointer 
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djdrv 



else 




jmp 


cout 


endif 




jmp 


punch 


jmp 


reader 


jmp 


home 


jmp 


setdrv 


jmp 


settrk 


jmp 


setsec 


jmp 


setdma 


jmp 


read 


jmp 


write 


if 


lsttyp ne 


jmp 


listst 


else 




jmp 


$ 


endif 




jmp 


sectran 


if 


max flop ne 


jmp 


dj sel 


else 




jmp 


donop 


endif 





;List device output 

; Punch device output 
; Reader device input 
j Home drive 
; Select disk 
;Set track 
? Set sector 
;Set DMA address 
;Read the disk 
; Write the disk 

;List device status 
;List device status 

; Sector translation 

; Hookup for SINGLE.COM program 



**************************************************************** 



* The following two words define the default baud rate for 

* the console and the LST: devices. These words must 

* immediatly follow the Cbios jump table so that the user 

* can easly modify them and that they will also be used in 

* the future by Morrow Designs software. 
* 

* The following is a list of possible baud rates and the 

* value needed for the defcon or deflst words. 



* Baud rate 

50 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



75 
110 
134. 
150 
300 
600 
1200 
1800 



defcon 
2304 
1536 
1047 

857 

768 

384 

192 
96 
64 



Baud rate 


defcon 


2000 


58 


2400 


48 


3600 


32 


4800 


24 


7200 


16 


9600 


12 


19200 


6 


38400 


3 


56000 


2 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



defcon dw 



12 



; Console baud rate 



deflst dw 



96 



? Printer baud rate 



***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 



The next byte is to make sure that the group select byte 
on the Mult I/O or Decsion I stays consistant throughout 
the Cbios. Only the group bits themselves (bits and 1) 
should be changed as you output to the group port. If 
you modify one of the other bits (such a driver-enable) 
then you should modify the same bit in the group byte 
provided. Example: 



* 
* 

* 
* 
* 
* 
* 
* 
* 



* ; Select console group * 

* Ida group ;Get group byte - * 

* ori congrp ; Select the console port * 

* out grpsel ; Select the group * 

* * 

* ; Modify a bit in the group byte * 

* Ida group ; Get group byte * 

* ori bank ; Set the bank bit * 

* sta group ; Save new group setting * 

* ori group2 ; Select second serial port * 

* out grpsel ; Select the desired group * 

* * 

* Note: You should not set the group bits themselves in * 

* the group byte . * 

* * 
***************************************************************** 

group db ; Group byte 

***************************************************************** 

* * 

* Console driver routines . * 

* * 

* Routine used depends on the value of contyp. Possible * 

* contyp values are listed as follows: * 

* * 

* contyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O or Decision I driver. * 

* 3 2D/B driver. * 

* * 

***************************************************************** 

ciflsh call flush ;Flush disk buffers on input 

jmp citty 

***************************************************************** 

* * 

* contyp: 1 Blank space for console driver * 

* * 

* Note: If the user plans to utilize this space then the * 

* one time code such as tinit sould be placed just below * 

* the cboot routine. This space (belowe cboot) is recyled * 

* for use as a disk buffer after cboot is done. * 

* * 

***************************************************************** 

if contyp eq 1 

;Make it easy to find this place 



tinit 


equ 


$ 


cotty 


equ 


$ 


citty 


equ 


$ 


cstty 


equ 
ret 


$ 




ds 


1 



127 

endif ; Blank space 

***************************************************************** 

* * 

* contyp: 2 Multi I/O or Decision I console driver * 

* * 

***************************************************************** 
if contyp eq 2 



***************************************************************** 



* This driver on cold boot will inspect bits 1-3 of the sense 

* switches. If the value found is in the range 0-6 then the 

* console baud rate will be taken from the rate table. 

* Otherwise the current divisor latch value will be checked. 

* If the divisor seems to be ok then no action will be taken 

* as far as the baud rate setting goes. If the divisor is not 

* ok then the baud rate will be set from the DEFCON word 

* which is found just below the regular Chios jump table. The 

* standard divisor table is given below. 
* 

* Sense switch: 123 (0 = off, 1 = on) 

* 000 = 110 

* 001 = 300 

* 010 = 1200 

* 011 = 2400 

* 100 = 4800 

* 101 = 9600 

* 110 = 19200 

* defcon = 9600 
* 

* Note: If you are compiling with multr3 (a Multi I/O) then 

* the switches will not be available so the baud rate 

* will be taken from defcon. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 

***************************************************************** 

* * 

* Due to its length, the tinit routine driver is belowe the * 

* cboot routine . * 
*.■■■■.■ * 
***************************************************************** 



***************************************************************** 

* * 

.*■ Read a character from the serial port. * 

* * 
***************************************************************** 



citty Ida 
ori 
out 



group 

congrp 

grpsel 



;Get group byte 
; Select console 



coninl in 
ani 
jz 
in 
ani 
ret 



lsr 

dr 

coninl 

rbr 

7fh 



;Read status register 
;Wait till character ready 

;Read character 
; Strip parity 



***************************************************************** 

*■...'' * 

* Output a character to serial port. * 

* * 
***************************************************************** 



cotty 



Ida 
ori 
out 



group 

congrp 

grpsel 



;Get group byte 
; Select console 



conoutl in 
ani 

jz 

mov 



lsr 
thre 
conoutl 
a . a 



;Read status 

;Wait till transmitter buffer empty 

•fharanf iar i a in ( r* \ 



out thr ; Output to transmitter buffer 

ret 

*************************************************************** 

* * 

* Return serial port status. Returns zero if character is not * 

* ready to be read. Else returns 255 if ready. * 

* * 

***************************************************************** 

;Get group byte 
; Select console 



;Read status register 

;No charactter ready 
; Character ready 

endif ;Multi I/O or Decision I 

***************************************************************** 

* * 

* contyp: 3 2DB console driver * 

* * 

***************************************************************** 



cstty 


Ida 


group 




on 


congrp 




out 


grpsel 




in 


lsr 




anx 


dr 




rz 






mvi 


a,0ffh 




ret 







if 


. contyp eq 3 


cotty 


jmp 


djcout 


citty 


jmp 


djcin 


cstty 


call 


djtstat 




mvi 


a,0ffh 




rz 






inr 


a 




ret 





; Console output 
; Console input 
; Console status 



endif ;2DB 

***************************************************************** 

* * 

* LST: device driver routines. * 

* * 

* Routine used depends on the value of lsttyp. Possible * 

* lsttyp values are listed as follows: * 

* * 

* lsttyp is: Nothing, used for patching to PROM's. * 

* 1 Provide for 128 bytes of patch space. * 

* 2 Multi I/O serial, no protocol. * 

* 3 Multi I/O serial, CTS protocol. * 

* 4 Multi I/O serial, DSR protocol. * 

* 5 Multi I/O serial, Xon / Xoff protocol. 



* 



6 Multi I/O parallel, Centronics. * 



* 



* 7 Multi I/O parallel, Diablo HyType II 

* * 

***************************************************************** 

***************************************************************** 

* * 

* lsttyp: 1 Blank space for printer driver * 

* * 

* Note: If the user plans to utilize this space then the * 

* one time code sunh as "Hn it- sonlH V»e» nlar-eH -in rat- holnur * 



* the cboot routine. This space (belowe cboot) is recyled * 

* for use as a disk buffer after cboot is done. * 

* * 

***************************************************************** 
if lsttyp eq 1 

linit equ $ ;Make it easy to find this place 

list equ $ 

listst equ $ 

ret 

ds 127 

endif ; Blank space 

***************************************************************** 

* * 

* lsttyp: 2 Serial printer, no protocol * 

* * 

* lsttyp: 3 Serial printer, CTS protocol * 

* * 

* lsttyp: 4 Serial printer, DSR protocol * 

* * 

* lsttyp: 5 Serial printer, Xon / Xoff protocol * 

* * 

************************************************************* 

if (lsttyp ge 2) and (lsttyp le 5) 

list Ida group ;Get group byte 

ori lstgrp ; Select list device 

out grpsel 

11 in lsr 

ani thre ;Wait till transmitter buffer empty 

jz 11 

********** * * ***************************************************** 

* * 

* The CTS driver is used for a printer with hardware * 

* handshaking (TI 810). It should be connected to the CTS * 

* input on the list device serial port. * 

* * 

***************************************************************** 

;CTS protocol 

;Wait till clear to send 



if 


lsttyp eq 3 


xn 


msr 


am 


cts 


jz 


11 


endif 





***************************************************************** 

* * 

* The DSR driver is used for a printer with hardware * 

* handshaking (TI 810). It should be connected to the DSR * 

* input on the list device serial port. * 

* * 
***************************************************************** 

if lsttyp eq 4 ;DSR protocol 

in msr 

ani dsr 

jz 11 ;Wail till DSR comes up 

endif 

***************************************************************** 



* 
* 
* 
* 



* The Xon/Xoff driver is used for a printer with software 

* handshaking (Diablo 630). 
* 
***************************************************** ************ 

if Isttyp eq 5 ;Xon / Xoff protocol 
xloop call listst ;Check printer status 

;Loop if not ready 





or a 




a 








jz 




xloop 








endi 


f 










mov 




a,c 








out 




thr 








ret 










listst 


Ida 
ori 
out 

in 

ani 
rz 




group 

Istgrp 

grpsel 

Isr 

thr 








if 




Isttyp 


eq 


3 




in 




msr 








ani 




cts 








rz 












endi 


f 










if 




Isttyp 


eq 


4 




in 




msr 








ani 




dsr 








rz 












endi 


f 










if 




Isttyp 


eq 


5 




mvi 




b, xon 






Istflg 


equ 

in 

ani 

jz 

in 

ani 

mov 

sta 




$-1 

Isr 

dr 

xskip 

rbr 

7fh 

b,a 

Istflg 






xskip 


mov 
sui 
jnz 
ret 




a,b 

xoff 

xsdone 






xsdone 


equ 
endi 

mvi 
ret 


f 


a, 0ffh 







endif 



;Get group byte 
;Select list device 



;Check if transmitter buffer empty 
; Return not ready 
;CTS protocol 

; Return not ready if CTS is false 

;DSR protocol 

; Return not ready if DSR is true 



;Xon / Xoff protocol 

;Last character recieved from printer 



; Check for a character 
;No character present 
;Get character 

; Save 

; Kludge flag (last character recieved) 

; Check for Xoff char (control S) 

; Printer ready 

; Printer not ready 

; Printer ready for data 



; Printer ready 
;Multi I/O serial 



** * * ******* ****************************************************** 

* * 

* Isttyp: 6 Centronics parallel printer driver. * 

* * 
***************************************************************** 



if 



1 sttvn ptcs fi 



***************************************************************** 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



Multi 


I/O 




pin 


signal 




46 


/d9 




37 


/dl 




36 


/a 2 




39 


/d3 




33 


/d4 




40 


/d5 




42 


/d6 




43 


/d7 




45 


/d8 




12 


/check 




28 


/printer 


ready 


3 


/paper 




4 


/ribbon 




1 


/dl0 





Decision I Diablo parallel to Centronics parallel interface. 

The following cable must be made from the 50 pin Diablo 
conector to the 35 pin Centronics. 

Centronics 

pin signal 

1 /strobe <- 

2 datal <- 

3 data2 <- 

4 data3 <- 

5 data4 <- 

6 data5 <- 

7 data6 <- 

8 data7 <- 

9 dataS <- 

10 /acknlg -> 

11 busy -> 

12 pe -> 

13 slct -> 
j.4 /auto feed xt <- 

15 NC 

16 0V <-> 

17 chassis gnd 

18 NC 

19 /strobe rtn <-> 

20 datal rtn <-> 

21 data2 rtn <-> 

22 data3 rtn <-> 

23 data4 rtn <-> 

24 data5 rtn <-> 

25 data6 rtn <-> 

26 data7 rtn <-> 

27 data8 rtn <-> 

28 /acknlg rtn <-> 

29 busy rtn <-> 

30 pe rtn <-> 

31 /init <- 

32 /error -> 

33 GND <-> 

34 NC 

35 /slct in <- 



8 

11 

14 

16 

18 

20 

22 

25 

38 

41 

44 

47 

9 

5 

35 

10 
35 



GND 



GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

GND 

/dll 

/cover 

GND 



<-> 



/dl2 
24 /Select 



IMPORTANT: For this interface to work /select (24) 
parallel conector must be tied to ground (35). 



on the 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



list 



rl 



Pi 



el 



Ida group 

out grpsel 

in daisy0 

ani ready+paper 

jz rl 

in daisy0 

ani ribbon 

jnz pi 

in daisy0 

ani cover 

jnz el 

mov a , c 

out ciPL isi 1 



;Get group byte 



;Wait till printer ready and selected 



;Test if out of paper 



;Move character into (a) 



mvi 


a,dll+dl0+d9 


out 


daisi0 


dcr 


a 


out 


daisi0 


inr 


a 


out 


daisi0 


ack in 


daisy0 


ani 


ready 


jz 


ack 


ret 




listst Ida 


group 


out 


grpsel 


in 


daisy0 


ani 


ready+paper 


rz 




in 


daisy0 


ani 


ribbon 


rz 




in 


daisy0 


ani 


cover 


xri 


cover 


rz 




dcr 


a 


ret 




endif 




if 


lsttyp eq 7 



;Make sure strobe is high 
; Pulse strobe low 

;Wait till ready again 



; Get group byte 
•Select group zero 

;Wait till printer ready and selected 



;Test if out of paper 



; Centronics parallel 
; Diablo HyTyp II 



***************************************************************** 

* Diablo 1610 simulator for the Morrow Designs / Thinker Toys * 
:d. The simulator makes the parallel Hytyp II * 



* Dxablo 1610 simulator for the Morrow Designs / TninKer 

* Mult I/O board. The simulator makes the parallel Hytyp 

* look like a serial 1610. * 
***************************************************************** 

***************************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



This routine does all of the character decoding, escape 
sequences forward, backward, etc. The list of escape 
sequences, and special characters recognized is: 



ignored 

ignored 

ignored (when received) 

ignored 

form feed 

etx/ack handshake 

horizontal tab 

line feed 

space 

backspace 

carriage return 

ignored 

set tab stop at current print position 

clear all tab stops 

graphics mode on 

graphics mode off 

forward print 

backward print 

clear tab stop 

set left margin 

ignored 



adel 




anul 




aack 




abel 




aff 




aetx 




aht 




alf 




asp 




abs 




acr 




aesc 





aesc 


1 


aesc 


2 


aesc 


3 


aesc 


4 


aesc 


5 


aesc 


*i 


aesc 


8 


aesc 


9 


aesc 


A 


aosr 


R 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* aesc 


D 




* aesc 


U 


■ 


* aesc 


alf 


* aesc 


ant c 


* aesc 


avt c 


* aesc 


ars c 


* aesc 
* 


aus c 


************************ 


list Ida 




group 


ori 




denable 


sta 




group 


mov 




a,c 


ani 




7fh 


rz 






cpi 




adel 


rz 






mov 




c,a 


Ida 




escflg 


lxi 




h, level0 


ana 




a 


mov 




a,c 


jz 




lookup 


Ida 




escflg 


lxi 




h, levell 


cpi 




aesc 


mov 




a,c 


jz 




lookup 


lxi 




h, level2 


Ida 




escflg 



negative half line feed 
half line feed 
negative line feed 
absolute horizontal tab 
absolute vertical tab 
set vmi 
set hmi 



* 
* 
* 
* 
* 
* 
* 
* 



;Set printer initialized flag 

;Get the character to print 
; Strip off parity 

; Ignore delete 

;Save character 

; Level zero characters 

;Scan for char in A 

;Look up activity for this character 

; Single character escape sequences 

;Scan for char in A 

^Execute single level escape sequence 

;Two character escape sequence 



********************************************************* 

* Lookup scans the table pointed at by HL looking for a match * 

* of the character in register A. * 
***************************************************************** 

lookup dcr m ;Test if end of table 

; Execute the default function 
; Otherwise test for a match 

;Bump over character 

;Bump over function address 



dcr 


m 


inr 


m 


jz 


go the r 


cmp 


m 


DZ 


gother 


mx 


h 


mx 


h 


mx 


h 


rjmp 


lookup 


mx 


h 


mov 


a,m 


mx 


h 


mov 


h,m 


mov 


l,a 


pchl 





gother inx h ;Bump over character 

;Get low byte of function address 

;Get high byte of function address 
;Form Address of function 
; Execute it 

***************************************************************** 

* Each of the following tables contains entries of the form: * 

* 1 byte character to match * 

* 2 bytes of address to execute * 

* terminated by a first byte of 0. * 
***************************************************************** 



level0 


db 


aesc 




dw 


doaesc 




db 


aff 




dw 


doaf f 




db 


aetx 




rlw 


rinaezf- v 



; Beginning of an escape sequence 

;Form feed 





db 


aht 




dw 


do aht 




db 


alf 




dw 


doalf 




db 


asp 




dw 


doasp 




db 


abs 




dw 


doabs 




db 


acr 




dw 


doacr 




db 







dw 


dochar 


W levell 


db 


•1' 




dw 


sethtab 




db 


'2' 




dw 


clrall 




db 


*3' 




dw 


setgrp 




db 


• 4 . 




dw 


clrgrp 




db 


'5' 




dw 


clrdir 




db 


'6' 




dw 


setdir 




db 


'8' 




dw 


clrhtab 




db 


'9' 




dw 


setlmar 




db 


• 0« 




dw 


funcl 




db 


'A* 




dw 


funcl 




db 


'B' 




dw 


funcl 




db 


'a* 




dw 


funcl 




db 


•b' 




dw 


funcl 




db 


'D' 




dw 


neghlf 




db 


'U' 




dw 


poshlf 




db 


alf 




dw 


neglf 




db 


aht 




dw 


settwo 




db 


avt 




dw 


settwo 




db 


ars 




dw 


settwo 




db 


aus 




dw 


settwo 




db 







dw 


funcl 


level2 


db 


aht 




dw 


abshtab 




db 


avt 




dw 


absvtab 




db 


ars 




dw 


setvmi 




db 


aus 




dw 


sethrai 




db 






;horizontal tab 
;Line feed 
; Space 
;Back space 
.•Carriage return 
;Any other character 

;Set horizontal tab 

; Clear all horizontal tabs 

; Graphics mode 

; Clear graphics mode 

; Forward printing 

.•Backward printing 

;Clear horizontal tab 

;Set left margin 

;No operation level 1 



;Negative half line feed 

;Half line feed 

.•Negative line feed 

;Two character escape sequence 



; Absolute horizontal tab 
; Absolute vertical tab 



rlt.7 



fnn /-i O 



***************************************************************** 

* The following routines execute escape sequences, etc. * 

***************************************************************** 



settwo 






doaesc 


raov 


a,c 




sta 


escf lg 


func0 


ret 




doaetx 


ret 




doalf 


call 


lfvmi 


ad jvp 


xchg 






lhld 


dlvpos 




dad 


d 




shld 


dlvpos 




ret 




lfvmi 


Ida 


grhf lg 




ana 


a 




lxi 


h,l 




rnz 






lhld 


vmi 




ret 




neglf 


call 


lfvmi 




call 


neghl 




call 


ad jvp 




jmp 


fund 


doasp 


call 


sphmi 


spdir 


Ida 


dirf lg 




ana 


a 




cnz 


neghl 


adjhp 


xchg 






lhld 


dlhpos 




dad 


d 




shld 


dlhpos 




ret 




sphmi 


Ida 


grhf lg 




ana 


a 




lxi 


h,2 




rnz 






lhld 


hmi 




ret 




doabs 


call 


sphmi 




call 


neghl 




jmp 


spdir 


doacr 


xra 


a 




sta 


dirf lg 




sta 


grhflg 




lhld 


hpos 




xchg 






lhld 


lmar 




call 


hlmde 




shld 


dlhpos 




mvi 


a, autolf 




ana 


a 




jnz 


doalf 



;Get the escape character 



;Get line feed vmi 

;Get vertical motion displacement 



;Only 1/48 if in graphics mode 
;Get vertical motion index 

;Get line feed vmi 



;Get space horizontal motion 
; Forward or backwards ? 

; Negate HL 

;Adjust Horizontal position 

;Get current adjustment 

; Update it 

;And save 



;In graphics mode ? 

;Only 1/60 if in graphics mode 



; Space increment 

; Negative to start with 

; Ad just backwards 



; Forward printing 
;No graphics mode 
;Get current offset 

;Get left margin 

;Don't move yet though 
;In Auto line feed mode ? 

;Do line feed also 



ret 



rtnfhar mnu 



1 _r< 





mvi 


h,0 




call 


wheel 




Ida 


grhf lg 




ana 


a 




lxi 


h,0 




jnz 


spdir 




lhld 


hmi 




jrap 


spdir 


clrall 


equ 


$ 




lxi 


h, tabstp 




mvi 


d, tab 1 en 


notblp 


mvi 


m,80h 


kludge 


equ 


$-1 




inx 


h 




dcr 


d 




jnz 


notblp 


func2 


equ 


$ 


funcl 


xra 


a 




sta 


escf lg 




ret 




setgrp 


mvi 


a,l 




sta 


grhflg 




jmp 


funcl 


clrgrp 


xra 


a 




sta 


grhflg 




jmp 


funcl 


clrdir 


xra 


a 




sta 


dirf lg 




jmp 


funcl 


setdir 


mvi 


a, a 




sta 


dirf lg 




jmp 


funcl 


setlmar 


lhld 
xchg 


hpos 




lhld 


dlhpos 




dad 


d 




shld 


lmar 




jmp 


funcl 


setvmi 


mov 


l,c 




mvi 


h,0 




dcx 


h 




shld 


vmi 




jmp 


func2 


sethmi 


mov 


l,c 




mvi 


h,0 




dcx 


h 




shld 


hmi 




jmp 


func2 


poshlf 


call 


hi f vmi 




call 


ad jvp 




jmp 


funcl 


neghlf 


call 


hi f vmi 




call 


neghl 




call 


ad jvp 




jmp 


funcl 



; Print the character in register C 



; Don't move if in graphics mode 



r Clear all horizontal tabs 

r Beginning of tab stop array 

fSize of tab array (bytes) 

r Reset tabs (reset to later) 

rUsed on first reset (warmboot) 

:Next tab stop 

; Update repeat count 

i Cont i nue z e ro i ng 

i Clear escape sequence flag 



; Set graphics mode on 

;Turn graphics mode off 

; Forward print mode 

; Set backward printing mode 

;Get current position 
;Get offset 



; Set the motion index 



;Half line feed vmi 



;Negative half line feed 



hlfvmi 
divid2 



lhld 

mov 

ora 

rar 

mov 

mov 

rar 

mov 

ret 



abshtab mov 
mvi 
dcx 
call 
jmp 

newdlh lhld 
call 
xchg 
lhld 
xchg 
call 
shld 
ret 

absvtab mov 
mvi 
dcx 
lhld 
call 
xchg 
lhld 
xchg 
call 
shld 
jmp 

sethtab call 
ora 
mov 
jmp 

tabcol lhld 
xchg 
lhld 
dad 
xchg 
lhld 
xchg 
call 

ratabp ; Make 
;HL -: 
;HL <- 
; A <- 
lxi 
call 
mov 
inr 
lxi 
dad 
xra 
stc 

mtab0 rar 
dcr 



vmx 
a,h 
a 

h,a 
a,l 

l,a 



e,c 

d,0 
d 

newdlh 
func2 

hmi 
hltde 

hpos 

hlmde 
dlhpos 



e,c 

d,0 
d 

vmi 
hltde 

vpos 

hlmde 

dlvpos 

func2 

tabcol 
m 

m,a 
funcl 

hpos 

dlhpos 
d 

hmi 

hlr'de 



;Get vmi for full line feed 

;High byte 

; Clear the carry 



; Absolute horizontal tab 
;Form 16 bit tab column 



; Multiply by hmi 

;And subtract current horizontal position 



;Absolute vertical tab 

; Multiply by vmi 

;And subtract the current vertical position 



Set horizontal tab 
OR in tab stop 
and save 



; Compute address of current character col 

;Get logical position 

;And divide by hmi to get character column 



a tab pointer 

Tab column desired (1-160) 
address of tab stop 
bit mask for tab stop 

d,8 ; Number of stops per byte 

hldde ;HL/DE -> HL, HL mod DE -> DE 

c,e ;Save 

c ;Make range (1-8) 

d,tabstp ;Tab array 

d ;Make array pointer 

a 



c 

rn-ha"hPJ 



;Bump bit counter 



ret 



clrhtab call 


tabcol 


craa 




ana 


m 


mov 


m, a 


jmp 


fund 


doaht lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


xchg 




lhld 


hmi 


xchg 




call 


hldde 


tablop lxi 


d , numtabs 


inx 


h 


call 


hlcde 


jnc 


tofar 


push 


h 


call 


mtabp 


ana 


m 


pop 


h 


jz 


tablop 


xchg 




jmp 


newdlh 


tofar lhld 


hpos 


xchg 




lxi 


h,maxrgt 


call 


hlmde 


shld 


dlhpos 


ret 




doaff lxi 


h,dfrmln 


lxi 


d,48 


call 


hltde 


lxi 


d,10 


call 


hldde 


push 


h 


lhld 


vpos 


xchg 




lhld 


dlvpos 


dad 


d 


pop 


d 


push 


d 


call 


hldde 


xchg 




pop 


d 


xchg 




call 


hlmde 


xchg 




lhld 


dlvpos 


dad 


d 


shld 


dlvpos 


jmp 


papr 



; Clear horizontal tab 
;Mask out tab stop 

; Compute address of current character col 

;Get logical position 

;And divide by hmi to get character column 



; Start with next position 

yCompare position with number of tabs 

;Past last tab 

;Save col pointer 

; Generate tab pointer 

; Check out tab stop 

; Restore col pointer 

;Loop if stop not set 

;Set new col position and return 
;Go all the way to the right 



; Multiply forms length by 48 



;And divide it by 10 

•Save this result 

;Get logical vertical position 



;Get copy of forms length 
;HL mod DE 



***************************************************************** 

* Neghl forms the twos complement of HL. * 

***************************************************************** 



neghl 



mov 
cma 
mov 
mov 



a,h 

h, a 
a,l 



raov 
inx 
ret 



l,a 
h 



************************************************************** 

* Hlmde subtracts DE from HL and returns . * 

***************************************************************** 



hlmde 



xchg 

call 

xchg 

dad 

ret 



neghl 
d 



***************************************************************** 

* Hlcde compares HL with DE. On return the Z flag is set if * 

* they are equal, the Carry flag is set if HL is less than DE. * 
***************************************************************** 



hlcde 



mov 


a,h 


cmp 


d 


rnz 




mov 


a,l 


cmp 


e 


ret 





***************************************************************** 

* Divide the number in HL by the number in DE. Return the * 

* quotient in HL and the remainder in DE. * 
***************************************************************** 



hldde 



div3 



divl 



div2 



mov 
cma 



a,d 



mov 


b,a 


mov 


a,e 


cma 




mov 


c, a 


xnx 


b 


mvi 


a, 16 


lxi 


d,0 


dcr 


a 


rm 




dad 


h 


xchg 




push 


psw 


dad 


h 


POP 


psw 


jnc 


divl 


xnx 


h 


push 


h 


dad 


b 


jnc 


div2 


xchg 




xnx 


h 


xthl 




pop 


h 


;imp 


div3 


pop 


h 


xchg 




jmp 


div3 



? Start by negating DE and 

; moving the left operand to BC 



; Repeat count in reg A 

; Initial remainder is zero 

;Test if done 

;A11 done ? 

; Shift right operand to the left 

; Save carry 

; Shift left operand to the left 

;Does it fit ? 



*********** ****************************************************** 

* Multiply the contents of HL by the contents of DE . * 

***************************************************************** 



HI trie 



n . 1 



mult 



mov 


b,h 


lxi 


h,0 


mov 


a,b 


ora 


c 


rz 




mov 


a,b 


ora 


a 


rar 




mov 


b,a 


mov 


a,c 


rar 




mov 


c,a 


cc 


dadde 


xchg 




dad 


h 


xchg 




jmp 


mult 


dad 


d 


ret 





dadde 



*************************************************************** 

* The routines below actually interface to the printer, * 

* causing paper feed, carriage, and print wheel motion. * 
***************************************************************** 



carrg 



lftok 



rgtok 



posh 



lhld 


dlhpos 


mov 


a,h 


ora 


1 


rz 




lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


mov 


a,h 


ana 


a 


JP 


lftok 


lhld 


hpos 


C3.ll 


neghl 


shld 


dlhpos 


lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


lxi 


d,maxrgt 


call 


hlcde 


jc 


rgtok 


lhld 


hpos 


xchg 




lxi 


h,maxrgt 


call 


hlmde 


shld 


dlhpos 


lhld 


hpos 


xchg 




lhld 


dlhpos 


dad 


d 


shld 


hpos 


lhld 


dlhpos 


mov 


a,h 


ana 


a 


mvi 


c,0 


JP 


posh 


call 


neghl 


mvi 


c, dll 


xchg 




lxi 


h,0 


sh 1 rt 


rll hr»r»s 



; Check for any accumulated motion 



; Check for too much motion 



.•Otherwise move only to maxright 



;Update the horizontal position 



; check if required motion is to the left 



"R £*«=£*+- 4-'Hca V*rNY--i v/-\in+- al i nriraman 4- 



xcng 




W mov 


a,l 


ani 


1 


jz 


nohhlf 


9 mov 


a,c 


ori 


dl2 


raov 


c,a 


W nohhlf call 


divid2 


mov 


a,h 


ani 


d9+dl0 


ora 


c 


mov 


h,a 


lxi 


d, crstrd 


• jmp 


cmnd 


papr Thld 


dlvpos 


mov 


a,h 


ora 


1 


rz 




^ mov 


a,h 


ana 


a 


mvi 


c,0 


• JP 


posv 


call 


neghl 


mvi 


c,dll 


£ posv mov 


a,h 


ani 


d9+dl0 


ora 


c 


4) mov 


h,a 


push 


h 


In Id 


vpos 


£ xchg 




lhld 


dlvpos 


dad 


d 


£ push 


h 


lxi 


h,dfrmln 


lxi 


d,48 


% call 


hltde 


lxi 


d,10 


call 


hldde 


• POP 


d 


xchg 




call 


hldde 


xchg 




shld 


vpos 


lxi 


h,0 


# shld 


dlvpos 


pop 


h 


lxi 


d,pf strd 


• 3 m P 


cmnd 


wheel push 


h 


call 


carrg 


call 


papr 


Pop 


h 


lxi 


d,pwstrd 


cmnd Ida 


group 


out 


grpsel 


cmnd0 in 


daisy0 


41 ana 


d 


jz 


cmnd0 


mov 


a, 1 


4) cma 




mo\7 


i a 



;No half spaces 



; Check for any paper motion 



;No motion 



;Save paper motion 

?Get logical position 

;Save for now 

;Get default form length 

; Multiply by 48 

; Divide by 10 

; Compute HL mod DE 

;Save new vertical position 

; Reset vertical motion 

; Paper feed strobe 

; Position the carriage first 



;Get group byte 
; Select group zero 



; Negate low data bits 



mov 


a,h 


ani 


d9+dl0+dll+d 


craa 




if 


multr3 


ani 


0f fh-restore 


end if 




mov 


h, a 


mov 


a,l 


out 


daisil 


mov 


a,h 


out 


daisi0 


xra 


e 


out 


daisi0 


mov 


a,h 


out 


daisi0 


ret 





;Mask out ribbon lift bit on Multi I/O 



;Output low bits 

; Output high bits 

; Slap strobe bits in 

;And drop strobes back down 



************************************************************** 

* New list device status routine. Returns 0ffh if the printer * 

* can except another character, otherwise it returns 0. * 
***************************************************************** 



listst Ida 


group 


anx 


denable 


rz 




Ida 


group 


out 


grpsel 


lxi 


d, pwstrd 


in 


daisy0 


ana 


d 


xra 


a 


rz 




cma 




ret 





? Check printer initialized flag 

;0 = printer not initialized 
;Get group byte 
; Select group zero 



***************************************************************** 

* Dynamic data locations used by the simulator. * 

***************************************************************** 



; Horizontal motion index. Set by linit 

r and escape sequences. 

? Vertical motion index. Set by linit 

r and escape sequences. 

r Vertical position. Set by platen motion 

? Delta vpos. Set by platen motion 

r Horizontal position. Set by carriage motion 

; Delta hpos. Set by carriage motion 

? Left margin 

; Direction flag 

; Graphics mode flag 

; Escape sequence in progress flag 



hmi 


dw 





vmi 


dw 





vpos 

dlvpos 

hpos 


dw 
dw 
dw 







dlhpos 
lmar 


dw 
dw 






dirf lg 
grhf lg 
escf lg 


db 
db 
db 









tabstp 
tab 1 en 


ds 

equ 


numtabs/8+1 
numtabs/8+1 



;Tab stops bit array 
; Length of tabs array 



endif 



***************************************************************** 

* * 

* The following routines are used to make the reader and punch * 

* devices peform I/O through the console. The user may patch * 

* here for their particular devices. * 

* * 

***************************************************************** 



mmfh 



<■"/""» i i +- 



reader jmp 



cm 



***************************************************************** 

* * 

* Gocpm is the entry point from cold boots, and warm boots. It * 

* initializes some of the locations in page 0, and sets up the * 

* initial DMA address (80h) . " * 

*■'■■'.' *' 

***************************************************************** 



;Set up initial DMA address 

.•Initialize jump to warm boot 

.•Initialize jump to BDOS 
; Address in warm boot jump 

;Address in BDOS jump 

;A <- 

;Disk Jockey buffer empty 

;Set buffer not dirty flag 

;Jump to CP/M with currently selected disk in C 



gocpm lxi 


h,buff 


call 


setdma 


mvi 


a, (jmp) 


sta 


wbot 


sta 


entry 


lxi 


h,wboote 


shld 


wbot+1 


lxi 


h,bdos+6 


shld 


entry+1 


xra 


a 


sta 


bufsec 


sta 


bufwrtn 


Ida 


cdisk 


mov 


c, a 


Ida 


cwf lg 


ora 


a 


lxi 


d,coldbeg 


mvi 


a,coldend 


jz 


cldcmnd 


lxi 


d,warmbeg 


mvi 


a,warmend 


cldcmnd lxi 


h,ccp+8 


sta 


ccp+7 


mov 


b,a 


call 


movlop 


Ida 


cwf lg 


ora 


av 


Ida 


auto fig 


jz 


cldbot 


rar 




cldbot rar 




jc 


ccp 


jmp 


ccp+3 



cwflg db 



;Beginning of initial command 
-coldbeg+1 ; Length of command 



-warmbeg+1 

; Command buffer 







; Enter CP/M 

; Cold/warm boot flag 



***************************************************************** 

* . * 

* The following byte determines if an initial command is to be * 

* given to CP/M on warm or cold boots. The value of the byte is * 

* used to give the command to CP/M: * 

* * 

* = never give command. * 

* 1 = give command on cold boots only. * 

* 2 = give the command on warm boots only. * 

* 3 = give the command on warm and cold boots . * 

* * 
***************************************************************** 



auto fig db 







;Auto command feature 



***************************************************************** 

* * 

* If there is a command inserted here, it will be given if the * 

* auto feature is enabled. * 



For Example: 

coldbeg db 
coldend db 



'MBASIC MYPROG' 







* 

* 
* 
* 
* 
* 
* 

* * 

***************************************************************** 



* will execute microsoft basic, and mbasic will execute the 

* "MYPROG" basic program. 



coldbeg 
coldend 


db 
db 


l 1 




warmbeg 
war mend 


db 
db 


■ i 





;Cold boot command goes here 
; Warm boot command goes here 



***************************************************************** 

* * 

* Wboot loads in all of CP/M except the Cbios, then initializes * 

* system parameters as in cold boot. See the Cold Boot Loader * 

* listing for exactly what happens during warm and cold boots. * 

* * 

***************************************************************** 



wboot 



lxi 
mvi 
sta 



sp,tpa 
a,l 
cwf lg 



;Set up stack pointer 
;Set cold/warm boot flag 



if 
xra 
mov 
lxi 
push 
sta 
mvi 
push 
call 
mvi 
call 
warmlod pop 
pop 
inr 
sta 
cpi 

jz 

inr 
inr 
shld 
push 
push 
warmrd lxi 
wrmread push 
call 
pop 
jnc 
dcr 
jnz 
hit 
db 
endif 



(maxhd ne 0) and first ; Supply Warm Boot from Hard Disk ? 

a 

c,a 

h,ccp-200h 

h 

head 

a,l 

psw 

hddrv 

c,0 

hdtrk 

psw 

h 

a 

hdsectr 

12 

gocpm 

h 

h 

hdadd 

h 

psw 

b, retries*100h+0 ; Retry counter 

b ; Save the retry count 

hdread ;Read the sector 

b 

warmlod ;Test for error 

b ;Update the error count 

wrmread ;Keep trying if not to many errors 

; Error halt 
;Try not to screw up Decision CPU's 



; Initial DMA address 



;Save first sector - 1 
; Select drive A 

;Home the drive 
; Restore sector 
.•Restore DMA address 



;Past BDOS ? 

;Yes, all done 

; Update DMA address 



***************************************************************** 
* * 

* 

* 



* Floppy disk warm boot loader 
* 



***************************************************************** 



if 
mvi 
call 
wrmfail call 

jc 
mvi 

call 



(maxflop ne 0) and not first ; Supply Warm Boot from 2D ? 

c,0 

djsel ;Select drive A 

djhome ; Track 0, single density 

wrmfail ;Loop if error 

c,0 ; Select side 

djside 

;The next block of code re-initializes 
; the warm boot loader for track 0. 

; Initialize the sector to read - 2 

; First revolution DMA - 100h 

;Load all of track 

;First sector - 2 

; update sector # 

;Size of track in sectors + 1 

;Skip if not at end of track 

;Done with this track 

;Back up to sector 6 

; Memory address of sector - 100h 

;Save the updated sector # 

; Set up the sector 

;Memory address of sector - 100h 

jUpdate DMA address 

;Save the updated DMA address 



;Set up the new DMA address 
b, retries*100h+0;Maximum # of errors, track # 

;Set up the proper track 
;Read the sector 

; Continue if no error 

;Keep trying if error 

;To many errors, flash the light 

;Load track 1, sector 1, sector 3 (partial), sector 2 (1024 byte sectors) 





mvi 


a, 5-2 




sta 


newsec 




lxi 


h, ccp-100h 




shld 


newdma 


t0boot 


mvi 


a, 5-2 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 




jc 


nowrap 




jnz 


tlboot 




sui 


27-6 




lxi 


h,ccp-80h 




shld 


newdma 


nowrap 


sta 


newsec 




mov 


c,a 




call 


djsec 




lxi 


h,ccp-100h 


newdraa 


equ 


$-2 




lxi 


d,100h 




dad 


d 


nowrp 


shld 


newdma 




mov 


b,h 




mov 


c, 1 




call 


djdma 




lxi 


b, retries* 


wrmfred 


push 


b 




call 


djtrk 




call 


djread 




pop 


b 




jnc 


t0boot 




dcr 


b 




jnz 


wrmfred 




jmp 


djerr 



tlboot mvi c,l 

call djtrk 

lxi b,ccp+0b00h 

lxi d,10*100h+l 

call wrmread 

lxi b,ccp+0f00h 

lxi d,10*100h+3 

call wrmread 



; Track 1 

,-Address for sector 1 

; Retry count + sector 1 

;Address for sector 2 

; Retry count + sector 3 



wrmcpy 



lxi b,0300h 

lxi d,ccp+1300h 

lxi h,ccp+0f00h 

mov a , m 

stax d 

inx d 

i nv h 



•Size of partial sector 
;Address for sector 3 
;Address of sector 3 

;Get a byte and 
; save it. 
;Bump pointers 



dcx 
mov 
ora 
jnz 

lxi 
lxi 
call 

jmp 



D 

a,b 

c 

wrmcpy 

b,ccp+0f00h 
d,10*100h+2 
wrmread 

gocpm 



wrmread 


push 


d 




call 


djdma 




pop 


b 




call 


djsec 


wrrafrd 


push 


b 




call 


djread 




DC 


wrmerr 




call 


djstat 




ani 


0ch 




sui 


0ch 


wrmerr 


pop 
rnc 


b 




dcr 


b 




jnz 


wrmfrd 




]mp 


djerr 



;Bump counter 
; Check if done 

; if not, loop 

;Address for sector 2 
; Retry count + sector 2 



;A11 done, do last inits... 

;Set DMA address 

;Set sector 

; Save error count 

;Read a sector 

;Do retry stuff on error 

; Sector size must be 1024 bytes 

;Mask length bits 

;Carry (error) will be set if < 0c0h 

; Fetch retry count 

; Return if no error 

;Bump error count 

; Error, flash the light 



end if 



********************************* * * ****************************** 

* * 

* Setsec just saves the desired sector to seek to until an * 

* actual read or write is attempted. * 

* * 
***************************************************************** 



setsec 


mov 


h,b 




mov 


l,c 




shld 


cpmsec 


donop 


ret 





;Null SINGLE.COM hookup for no floppies 



***************************************************************** 

* * 

* Setdma saves the DMA address for the data transfer. * 

* * 

***************************************************************** 



setdma mov h,b 

mov 1 , c 

shld cpmdma 
ret 



;hl <- be 

;CP/M dma address 



***************************************************************** 

* * 

* Home is translated into a seek to track zero. * 

* * 

***************************************************************** 



home 



mvx 



C,0 



; Track to seek to 



***************************************************************** 

* * 

* Settrk saves the track # to seek to. Nothing is done at this * 

* point, everything is deffered until a read or write. * 

* * 

***************************************************************** 



settrk mov 
sta 
ret 



a,c 

cpmtrk 



;A <- track # 
;CP/M track # 



***************************************************************** 

* * 

* Sectran translates a logical sector # into a physical sector * 

* #. * 

*■.■-, * 

*************************************************************** 



if 
sectran Ida 



if 
cpi 

jc 

else 

cpi 

jnc 

endif 

endif 

if 



(maxhd ne 0) and (max flop ne 0) ;Both types ? 
cpmdrv ;Get the Drive Number 

first 

maxhd*logdsk ;Over the # of hard disks ? 

tranhd 



maxflop 
tranhd 



rOver the # of floppies ? 



(maxhd eq 0) or (maxflop eq 0) ;Just one type ? 



sectran 


equ 
endif 


$ 






if 


maxflop ne 





tranfp 


inx 


b 






push 


d 






push 


b 






call 


getdpb 






mov 


a,m 






or a 


a 






rar 








sub 


c 






push 


psw 






jm 


sidetwo 




sidea 


pop 


psw 






pop 


b 






pop 


d 




sideone 


xchg 








dad 


b 






mov 


l,m 






mvi 


h,0 






ret 






sidetwo 


lxi 


b,15 






dad 


b 






mov 


a,m 






ani 


8 






jz 


sidea 






pop 


psw 






pop 


b 






cma 








inr 


a 






mov 


c,a 






pop 


d 






call 


sideone 






mvi 


a,80h 






ora 


h 






mov 


h, a 






ret 








e»nrl i -F 







; Floppy translation 

;Save table address 

;Save sector # 

;Get DPB address into HL 

;Get ■# of CP/M sectors/track 

;Clear cary 

; Divide by two 

;Save adjusted sector 

;Discard adjusted sector 
;Restore sector requested 
;Restor address of xlt table 
;hl <- &( translation table) 
;bc = offset into table 
;hl <- physical sector 



;Offset to side bit 

;Test for double sided 
;Media is only single sided 
; Retrieve adjusted sector 

;Make sector request positive 

;Make new sector the requested sector 



;Side two bit 

; and sector 



tranhd 



if 

raov 

mov 

inx 

ret 

end if 



maxhd ne 

h,b 

l,c 

h 



.•Hard Disk translation routine 



*********** 
* 

Setdrv se 
operation 
parameter 
diskette 
different 
1) 
2) 
3) 
4) 



****************************************************** 



lects the next drive to be used in read/write 

s. If the drive has never been selected before, a 

table is created which correctly describes the 
currently in the drive. Diskettes can be of four 

sector sizes: 
128 bytes single density. 
256 bytes double density. 
512 bytes double density. 
1024 bytes double density. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



***************************************************************** 



setdrv 



mov 
sta 
cpi 
jnc 
mov 
ani 
jnz 

if 
Ida 

if 

cpi 

jc 

sui 

else 

cpi 

jnc 

end if 

endif 



if 

mov 

mvi 

f lopflg equ 
ana 
jnz 
mvi 
lxi 
mvi 

clopp crop 
jnz 
inx 
inx 
inx 
dcr 
jnz 
lxi 
lxi 
mvi 
call 
mvi 
sta 
mvi 



a,c ;Save the drive # 

cpmdrv 

max flop+( maxhd* logdsk) ; Check for a valid drive # 

zret ; Illegal drive # 

a,e rTest if drive ever logged in before 

1 

setdrvl ;Bit of E = -> Never selected before 

(maxhd ne 0) and (maxflop ne 0) ;Both types ? 
cpmdrv ;Get the Drive Number 

first 

maxhd*logdsk ;Over the # of hard disks ? 

drvhd 

maxhd* logdsk 



maxflop 
subfp 



;Over the # of floppies ? 



(maxflop ne 0) and first 



c,a 
a,0 

$-1 

a 

flopok 

b,17 

h, djboot 

a, ( jmp) 

m 

zret 

h 

h 

h 

b 

clopp 

d,djinit 

h,origin+7e2h 

b,30 

mov lop 

a,0ffh 

dreg 

a . clrnmd 



? Save drive # 

;Have the floppies been accessed yet ? 



; Floppies havn't been accessed 

j Check if 2D controller is installed 



; Initialization sequence 
;Load address 
; Byte count 

; Start 1791 

• 1 791 rPspt 



sta 
jmp 

djinit db 

db 



d jnext 



flopok 



sideok 



mvx 

sta 

end if 

if 

lxi 

shld 

mvi 

sta 

call 

je 

call 

ani 

push 

rar 

lxi 

raov 

mvi 

dad 

push 

call 

xchg 

pop 

mvi 

call 

lxi 

dad 

push 

In Id 

inx 

raov 

xri 

mov 

mvi 

moy 

ani 

lxi 

jnz 

lxi 

xchg 

pop 

pop 

ral 

ral 

mov 

mvi 

dad 

xchg 

mov 

inx 

mov 

endif 



cmdreg 
djnext 

0, 0, 0, 18h, 0, 0, 8, 0, 7eh, 0, 8, 0, 9, 0ffh, 9, 0ffh 
9, 0ffh, 9, 0ffh, 9, 0, 1, 0, 0, 0, 0, 0, 0, 



a, 1 
flopflg 

max flop ne 

h,l 

truesec 

a, 1 

cpmtrk 

fill 

zret 

djstat 

0ch 

psw 

h, xlts 

e,a 

d,0 

d 

h 

getdpb 

d 

b,2 

movlop 

d,8 

d 

h 

origin+7 

h 



;Save 2D initialized flag 



; Select sector 1 of track 1 



; Flush buffer and refill 
7 Test for error return 
;Get status on current drive 
; Strip off unwanted bits 
;Used to select a DPB 

7 Table of XLT addresses 



Save pointer to proper XLT 
Get DPH pointer into DE 



; Number of bytes to move 
; Move the address of XLT 
7 Offset to DPB pointer 
?HL <- &DPH.DPB 



?Adjust for proper rev DJ 



rGet address of DJ terminal out routine 
Bump to look at address of 
uart status location 
a,m 
3 

l,a 

h, (origin+300h)/100h 
a,m 

dblsid 7 Check double sided bit 

d,dpbl28s 7 Base for single sided DPB's 
sideok 
d,dpbl28d ?Base of double sided DPB's 

7HL <- DBP base, DE <- &DPH.DPB 
d 7 Restore DE (pointer into DPH) 

psw 7 Offset to correct DPB 



c, a 
b,0 
b 



7 Put DPB address in DPH 



m, e 

h 
m,d 



subfp 



if 

jmp 

if 

sui 

endif 

endif 



(maxhd ne 0) and (maxflop ne 0) 

setdrvl 7 Skip over the Hard Disk select 

not first 

maxflop ?Adjust the drive # 





if 


maxhd ne 


4p drvhd 


call 


divlog 




raov 


a,c 




sta 


hddisk 




call 


drvptr 




raov 


a,m 




inr 


a 




jnz 


setdrvl 




ori 


null 




out 


hdfunc 




mvi 


a, scenbl 




out 


hdcntl 




mvi 


c,239 




lxi 


h,0 


tdelay 


dcx 


h 




mov 


a , h 




ora 


1 




cz 


dcrc 




rz 






in 


hdstat 




ani 


drvrdy 




jnz 


tdelay 




if 


not fujitsu 




lxi 


h,0 




mvi 


c, index 




in 


hdstat 




ana 


c 




mov 


b,a 


indxl 


in 


hdstat 




ana 


c 




cmp 


b 




jz 


indxl 


indx2 


inx 


h 




in 


hdstat 




ana 


c 




cmp 


b 




jnz 


indx2 




if 


ml0 




dad 


h 




endif 






if 


m26 




xra 


a ■■ 




mov 


a,h 




rar 






mov 


d,a 




mov 


a,l 




rar 






mov 


e , a 




dad 


d 




endif 






shld 


settle 




endif 






call 


hdhome 




endif 




setdrvl 


call 


getdpb 




lxi 


b,15 




dad 


b 




mov 


a,m 




ani 


7h 




sta 


secsiz 




mov 


a,m 




rar 





; Divide by logical disks per drive 



; Select drive 

; Enable the controller 

;Wait approx 2 minutes for Disk to ready 



;Test if ready yet 



;Time one revolution of the drive 



;Save current index level in B 



;Loop util index level changes 



; Start counting until index returns to 
; previous state 



;Memorex M10 ' s have 40 ms head settle 



;Shugart M26 * s have 30 ms head settle 



;Save the Count for timeout delay 



;Get address of DPB in HL 
; Offset to sector size 

;Get sector size 



zret 



dcrc 



rar 

rar 

rar 

ani 

sta 

xchg 

ret 

Ixi 
ret 

if 

dcr 

ret 



divlog mvi 
divlogx sui 
re 
inr 
jmp 
endif 



0fh 
secpsec 



h,0 

maxhd ne 
c 



C, 

logdsk 



divlogx 



;HL <- DPH 
;Seldrv error exit 

; Conditional decrement C routine 



***************************************************************** 
* * 



* Getdpb returns HL pointing to the DPB of the currently 

* selected drive, DE pointing to DPH. 

* 

***************************************************************** 



* 
* 
* 



getdpb Ida 
mov 
mvi 
dad 

dad 
dad 
dad 


cpmdrv 

l,a 

h,0 

h 

h 

h 

h 


Ixi 
dad 


d,dpbase 
d 


push 

Ixi 

dad 


h 

d,10 
d 


mov 


a,m 


xnx 


h 


mov 


h,m 


mov 


1, a 


pop 

ret 


d 



;Form offset 



;Base of DPH's 

;Save address of DPH 
.•Offset to DPB 

;Get low byte of DPB address 

;Get low byte of DPB 



***************************************************************** 

* * 

* Xlts is a table of address that point to each of the xlt * 

* tables for each sector size. * 

* * 
***************************************************************** 



xlts 



if 


max flop ne 


dw 


xltl28 


dw 


xlt256 ; 


dw 


xlt512 


dw 


xltl24 ; 


endif 





Xlt for 128 byte sectors 
Xlt for 256 byte sectors 
Xlt for 512 byte sectors 
Xlt for 1024 byte sectors 



***************************************************************** 

* * 

* Write routine moves data from memory into the buffer. If the * 

* desired CP/M sent-nr is nnt- nnnfaindH in Hio rlialr V>n -F-For- -(-Via * 



* buffer is first flushed to the disk if it has ever been * 

* written into, then a read is performed into the buffer to get * 

* the desired sector. Once the correct sector is in memory, the * 

* buffer written indicator is set, so the buffer will be * 

* flushed, then the data is transferred into the buffer. * 

* * 
************************************************** *************** 



write mov a,c 

sta writtyp 

mvi a,l 

db (mvi) or (b*8) 



;Save write command type 

Set write command 

This "mvi b" instruction causes 

the following "xra a" to 

be skipped over . 



************************** * * ************************************* 

* * 

* Read routine to buffer data from the disk. If the sector * 

* requested from CP/M is in the buffer, then the data is simply * 

* transferred from the buffer to the desired dma address. If * 

* the buffer does not contain the desired sector, the buffer is * 

* flushed to the disk if it has ever been written into, then * 

* filled with the sector from the disk that contains the * 

* desired CP/M sector. * 

* * 
***************************************************************** 



read 



xra 

sta 



a 
rdwr 



;Set the command type to read 
; Save command type 



***************************************************************** 

* * 

* Redwrt calculates the physical sector on the disk that * 

* contains the desired CP/M sector, then checks if it is the * 

* sector currently in the buffer. If no match is made, the * 

* buffer is flushed if necessary and the correct sector read * 

* from the disk. * 

* * 
***************************************************************** 



redwrt 


mvi 


b,0 


secsiz 


equ 


$-1 




lhld 


cpmsec 




mov 


a,h 




ani 


80h 




mov 


c,a 




mov 


a,h 




ani 


7fh 




mov 


h,a 




dcx 


h 


divloop 


dcr 


b 




J z 


divdone 




ora 


a 




mov 


a,h 




rar 






mov 


h, a 




mov 


a,l 




rar 






mov 


l,a 




jmp 


divloop 


divdone 


inx 


h 




mov 


a,h 




ora 


c 




mot/ 


In . s 



The is modified to contain the log2 
of the physical sector size/128 
on the currently selected disk. 

Get the desired CP/M sector # 

;Save only the side bit 
; Remember the side 

; Forget the side bit 

; Temporary adjustment 
; Update repeat count 



;Divide the CP/M sector # by the size 
; of the physical sectors 



; Restore the side bit 



;Save the physical sector number 

; Pointer to desired drive, track, and sector 

;Pointer to buffer drive, track, and sector 

; Count loop 

;Test if done with compare 

;Yes, match. Go move the data 

;Get a byte to compare 

;Test for match 

;Burap pointers to next data item 

; Match, continue testing 

***************************************************************** 

* * 

* Drive, track, and sector don't match, flush the buffer if * 

* necessary and then refill. * 

* * 
***************************************************************** 





shld 


truesec 


lop 


Ixi 
Ixi 
mvi 
dcr 


h, cpmdrv 
d,bufdrv 
b, 5 
b 




DZ 
ldax 


move 
d 




cmp 
inx 


m 
h 




inx 
jz 


d 
dtslop 



call 
re 



fill 



;Fill the buffer with correct physical sector 
;No good, return with error indication 



***************************************************************** 

* * 

* Move has been modified to cause either a transfer into or out * 

* the buffer. * 

* * 
***************************************************************** 



move 


Ida 


cpmsec 




dcr 


a 




ani 





secpsec 


equ 


$-1 




mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




Ixi 


d, buffer 




dad 


d 




xchg 






Ixi 


h,0 


cpmdma 


equ 


$-2 




mvi 


a,0 


rdwr 


equ 


$-1 




ana 


a 




jnz 


into 


outof 


call 


mover 




xra 


a 




ret 





;Get the CP/M sector to transfer 

;Adjust to proper sector in buffer 

; Strip off high ordered bits 

?The is modified to represent the # of 

,- CP/M sectors per physical sectors 

;Put into HL 

;Form offset into buffer 



Beginning address of buffer 

Form beginning address of sectgr to transfer 
DE = address in buffer 
Get DMA address, the is modified t/ 
contain the DMA address 

;The zero gets modified to contain 

; a zero if a read, or a 1 if write 

•Test which kind of operation 
.•Transfer data into the buffer 



xnto 



xchg 

call 



mover 



mvi 


a,l 


sta 


bufwrtn 


mvi 


a,0 


writtyp equ 


$-1 


dcr 


a 



Move the data, HL = destination 
DE = source 

; Set buffer written into flag 
; Check for directory write 



mvi 


a,0 


sta 


writtyp 


rnz 





;Set no directory write 
fBto error exit 



************************************************************* 

* * 

* Flush writes the contents of the buffer out to the disk if * 

* it has ever been written into. * 

* * 

***************************************************************** 



flush mvi 



a,0 



bufwrtn equ 


§-1 


ana 


a 


rz 




if 


(maxhd ne 0) 


lxi 


h,d jwrite 


lxi 


dvhdwrite 


call 


decide 


else 




if 


maxhd ne 


lxi 


h,hdwrite 


end if 




if 


max flop ne 


lxi 


h,djwrite 


end if 




endif 





•The is modified to reflect if 

; the buffer has been written into 

;Test if written into 
;Not written, all done 



; Write operation for Disk Jockey 
;Write operation for Hard Disk 



***************************************************************** 

* * 

* Prep prepares to read/write the disk. Retries are attempted. * 

* Upon entry, H&L must contain the read or write operation * 

* address. * 

* * 

***************************************************************** 



prep di 
xra 
sta 
shld 
mvi 

retrylp push 
Ida 

if 
if 
cpi 

jc 

sui 

else 

cpi 

jc 

sui 

endif 



bufwrtn 
retryop 
b, retries 
b 
bufdrv 



; Reset interrupts 

; Reset buffer written flag 

;Set up the read/write operation 

; Maximum number of retries to attempt 

;Save the retry count 

;Get drive number involved in the operation 



(maxhd ne 0) and (maxflop ne 0) 

first 

maxhd* logdsk 

noadjst 

maxhd*logdsk 

maxflop 
noadjst 
maxflop 



noadjst mov 
lxi 
lxi 
call 
else 
mov 
if 
call 

endi -f 



c,a 

h,djdrv 
d,hddrv 
decidgo 

c, a 

maxhd ne 

hddrv 



; Select drive 



if 

call 
endif 
end if 



max flop ne 
djdrv 



; Select the drive 



Ida 
ana 
mov 
push 

if 

lxi 

lxi 

cz 

else 

if 

cz 

endif 

if 

cz 

endif 

endif 



buftrk 
a 

c,a 
b 



;Test for track zero 



(maxhd ne 0) and (maxflop ne 0) 

h,djhorae 

d,hdhome 

decidgo 

maxhd ne 
hdhome 

maxflop ne 

djhome rHome the drive if track 



pop 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



b ; Restore track # 

(maxhd ne 0) and (maxflop ne 0) 

h,djtrk 

d,hdtrk 

decidgo 

maxhd ne 
hdtrk 



maxflop ne 
djtrk 



;Seek to proper track 



lhld 

mov 

rlc 

ani 

mov 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



bufsec 
a,h 

1 
c,a 



;Get sector involved in operation 
;Bit of A equals side # 
; Strip off unnecessary bits 
;C <- side # 



(maxhd ne 0) and (maxflop ne 0) 

h,djside 

d,hdside 

decidgo 

maxhd ne 
hdside 



maxflop ne 
djside 



; Select the side 



lhld 

mov 

ani 

mov 

mov 

if 
lxi 

lxi 



bufsec 
a,h 
7fh 
b, a 

c,l 



; Strip off side bit 
•C <- sector # 



(maxhd ne 0) and (maxflop ne 0) 

h,djsec 

d . hdsec 



call 

else 

if 

call 

end if 

if 

call 

endif 

end if 



decidgo 

maxhd ne 
hdsec 

max flop ne 
djsec 



? Select the side 



lxi 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



b, buffer 



;Set the DMA address 



(maxhd ne 0) and (max flop ne 0) 
h,d jdma 
d , hddma 
decidgo 

maxhd ne 
hddma 



max flop ne 
djdma 



•Select the side 



call 
retryop equ 
pop 
mvi 
rnc 
dcr 
stc 
mvi 
rz 
mov 
cpi 
jnz 
push 

if 

lxi 

lxi 

cz 

else 

if 

cz 

endif 

if 

cz 

endif 

endif 





$-2 
b 
a,0 



a,0ffh 

a,b 

retries/2 
retrylp 
b 



;Get operation address 

; Restore the retry counter 

;No error exit status 

; Return no error 

yUpdate the retry counter 

; Assume retry count expired 

; Error return 

; Return sad news 

;reseek after half retries done 
•Try again 



(maxhd ne 0) and (maxflop ne 0) 
h,djhome 

d,hdhome 
decidgo 

maxhd ne 
hdhome 



maxflop ne 
djhome 



;Home the drive if track 



pop 
jmp 



b 
retrylp 



;Try again 



******************** * * ******************************************* 

* * 

* Fill fills the buffer with a new sector from the disk. * 

* * 
***************************************************************** 



fill 



call 


flush 


re 




lxi 


d, cpmdrv 


lxi 


h,bufdrv 


mvi 


b.4 



;Flush buffer first 

; Check for error 

;Update the drive, track, and sector 

rNtirahsr o-F 'hvt-ocs -t-o mnue 



call movlop 



;Copy the data 



fread 



Ida 


rdwr 


ana 


a 


jz 


fread 


Ida 


writtyp 


dcr 


a 


dcr 


a 


rz 




call 


getdpb 


lxi 


d,15 


dad 


d 


mov 


a,m 


ani 


3 


dcr 


a 


rz 




equ 


$ 


if 


(maxhd ne 0) 


lxi 


h,d jread 


lxi 


d,hdread 


call 


decide 


else 




if 


maxhd ne 


lxi 


h,hdread 


endif 




if 


maxflop ne 


lxi 


h,djread 


endif 




endif 




jmp 


prep 



; Select the side 



; Select drive, track, and sector. 
; Then read the buffer 



***************************************************************** 

* * 

* Mover moves 128 bytes of data. Source pointer in DE, Dest * 

* pointer in HL. * 

* * 

***************************************************************** 



mover mvi b,128 

movlop Idax d 

mov m, a 

inx d 

inx h 

dcr b 

jnz movlop 
ret 



; Length of transfer 
;Get a bte of source 
;Move it 
;Bump pointers 

; Update counter 

; Continue moving until done 



***************************************************************** 

* * 

* Routines to decide which controller to use. * 

* * 

***************************************************************** 



if 
decidgo call 
pchl 
endif 



(maxhd ne 0) and (maxflop ne 0) 
decide ;which controller ? 



if 
decide Ida 
if 
cpi 
rnc 

ol CO 



(maxhd ne 0) and (maxflop ne 0) 

bufdrv ;Get proper routine into H&L, based 

first ; on currently selected drive 

maxhd* logdsk 



cpi max flop 

re 

end if 

xchg 

ret 

endif 

********************************************************* 

* * 

* The following is the equivalent of the lowest level drivers * 

* for the Hard Disk. * 

* * 

***************************************************************** 





if 


maxhd ne 


hddrv 


rnov 


a,c 




call 


divlog 




mov 


a,c 




sta 


hddisk 




ori 


null 




out 


hdf unc 




mvi 


a,wenabl 




out 


hdcntl 




ret 




hdhorae 


call 


drvptr 




mvi 


rn,0 




in 


hdstat 




ani 


tkzero 




rz 






if 


not fujitsu 


stepo 


in 


hdstat 




ani 


tkzero 




jz 


delay 




mvi 


a, 1 




stc 






call 


accok 




jmp 


stepo 



; Select Hard Disk drive 
;Get the physical drive # 

; Select the drive 



;Set track to zero 
;Test status 
;At track zero ? 
;Yes 



;Test status 
;At track zero ? 



;Take one step out 



else 





jmp 


accok 




endif 






if 


not fujitsu 


delay 


lxi 


h,0 


settle 


equ 


$-2 


deloop 


dcx 


h 




mov 


a,h 




ora 


1 




inx 


h 




dcx 


h 




jnz 


deloop 




ret 






endif 




hdtrk 


call 


drvptr 




mov 


e,m 




mov 


m, c 




mov 


a, e 




sub 


c 




rz 






one 






■if! 


hr1tvrk2 



;Get delay 
;Wait 20ms 



;Get pointer to current track 
;Get current track 
; Update the track 
;Need to seek at all ? 



;Get carry into direction 





cma 






inr 


a 




if 


fujitsu 


hdtrk2 


jmp 
else 


accok 


hdtrk2 


call 


accok 




jmp 


delay 




endif 




accok 


mov 


b,a 




call 


build 


sloop 


ani 


nstep 




out 


hdfunc 




ori 


pstep 




out 


hdfunc 




dcr 


b 




jnz 


sloop 




jmp 


wsdone 


hddma 


mov 


h,b 




mov 


l,c 




shld 


hdadd 


hdside 


equ 
ret 


$ 


wsdone 


in 


hdstat 




ani 


complt 




jz 


wsdone 




ret 






if 


m26 


hdsec 


mvi 


a,01fh 




ana 


c 




cz 


getspt 




sta 


hdsectr 




mvi 


a,0e0h 




ana 


c 




rlc 






rlc 






rlc 


V 




sta 


head 


getspt 


mvi 
ret 


a, hdspt 



;Prep for build 

;Get step pulse low 

; Output low step line 

;Set step line high 

; Output high step line 

; Update repeat count 

;Keep going the required # of tracks 



;Save the DMA address 



;Wait for seek complete to finish 



;For compatibility with Cbios rev 2.3, 2.4 



else 



nasec 


mov 


a, c 




call 


divspt 




adi 


hdspt 




ana 


a 




cz 


getspt 




sta 


hdsectr 




mov 


a,c 




sta 


head 


getspt 


mvi 


a, hdspt 




dcr 


c 




ret 




divspt 


mvi 


c,0 


divsptx 


sui 
re 


hdspt 




mr 


c 




3mp 


divsptx 




endif 




hdread 


call 


hdnreo 



re 




w xra 


a 


out 


hdcmnd 


cma 




out 


hddata 


out 


hddata 


mvi 


a.rsect 


£ out 


hdcmnd 


call 


process 


re 




£ xra 


a 


out 


hdcmnd 


mvi 


b, seclen/4 


w lxi 


h,0 


hdadd equ 


$-2 


in 


hddata 


(0 in 


hddata 


rtloop in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m, a 


£ inx 


h 


in 


hddata 


mov 


m, a 


£ inx 


h 


dcr 


b 


jnz 


rtloop 


9>. ret 




hdwrite call 


hdprep 


re 




xra 


a 


out 


hdcmnd 


lhld 


hdadd 


mvi 


b, seclen/4 


wtloop mov 


a,m 


out 


hddata 


inx 


h 


mov 


a,m 


(f$ out 


hddata 


inx 


h 


mov 


a,m 


(0 out 


hddata 


inx 


h 


mov 


a,m 


out 


hddata 


inx 


h 


dcr 


b 


€D jnz 


wtloop 


mvi 


a,wsect 


out 


hdcmnd 


# call 


process 


re 




mvi 


a,wfault 


£ ana 


b 


stc 




rz 




^1 xra 


a 


ret 




Qp process in 


hdstat 


mov 


b . a 



;Read sector command 



;Move four bytes 



; Prepare header 



;Move 4 bytes 



; Issue write sector command 



;Wait for command to finish 





am 


opdone 




jz 


process 




mvi 


a,dskclk 




out 


hdcntl 




in 


hdstat 




ani 


tmout 




stc 






rnz 






in 


hdreslt 




ani 


retry 




stc 






rnz 






xra 


a 




ret 




hdprep 


in 


hdstat 




ani 


drvrdy 




stc 






rnz 






mvi 


a,isbuff 




out 


hdcmnd 




call 


build 




ori 


0ch 




out 


hdfunc 




Ida 


head 




out 


hddata 




call 


drvptr 




rnov 


a,m 




out 


hddata 




ana 


a 




mvi 


b,80h 




jz 


zkey 




mvi 


b,0 


zkey 


mvi 


a,0 


40 hdsectr 


equ 


$-1 




out 


hddata 




mov 


a,b 




out 


hddata 




mvi 


a,dskclk 




out 


hdcntl 




mvi 


a , wenabl 




out 


hdcntl 




xra 


a 




ret 




drvptr 


lhld 
xchg 


hddisk 




mvi 


d,0 




lxi 


h, drives 




dad 


d 




ret 




9 build 


mvi 


a,0 


head 


equ 
ral 
ral 
ral 
ral 


$-1 




ori 





hddisk 


equ 


$-1 




xri 


0f0h 




ret 




drives 


equ 


$ 




rept 


maxhd 




db 


0ffh 



; Timed but ? 



;Any retries ? 



; Initialize pointer 



;Form head byte 
; Form track byte 



;Form sector byte 



endm 
endif 

************************************************************ 

* * 

* Xlt tables (sector skew tables) for CP/M 2.0. These tables * 

* define the sector translation that occurs when mapping CP/M * 

* sectors to physical sectors on the disk. There is one skew * 

* table for each of the possible sector sizes. Currently the * 

* tables are located on track sectors 6 and 8. They are * 

* loaded into memory in the Cbios ram by the cold boot routine. * 

* * 

***************************************************************** 

if max flop ne 

xlt 128 db 

db 1,7,13,19,25 

db 5,11,17,23 

db 3,9,15,21 

db 2,8,14,20,26 

db 6,12,18,24 

db 4,10,16,22 

xlt256 db 

db 1,2,19,20,37,38 

db 3,4,21,22,39,40 

db 5,6,23,24,41,42 

db 7,8,25,26,43,44 

db 9,10,27,28,45,46 

db 11,12,29,30,47,48 

db 13,14,31,32,49,50 

db 15,16,33,34,51,52 

db 17,18,35,36 

xlt5l2 db 

db 1,2,3,4,17,18,19,20 

db 33,34,35,36,49,50,51,52 

db 5,6,7,8,21,22,23,24 

db 37,38,39,40,53,54,55,56 

db 9,10,11,12,25,26,27,28 

db 41,42,43,44,57,58,59,60 

db 13,14,15,16,29,30,31,32 

db 45,46,47,48 

xltl24 db 

db 1,2,3,4,5,6,7,8 

db 25,26,27,28,29,30,31,32 

db 49,50,51,52,53,54,55,56 

db 9,10,11,12,13,14,15,16 

db 33,34,35,36,37,38,39,40 

db 57,58,59,60,61,62,63,64 

db 17,18,19,20,21,22,23,24 

db 41,42,43,44,45,46,47,48 

***************************************************************** 

* * 

* Each of the following tables describes a diskette with the * 

* specified characteristics. * 

* * 

***************************************************************** 

***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and single sided. * 

* * 



************ it ******************************************** ******** 



dpbl28s dw 


26 


db 


3 


db 


7 


db 





dw 


242 


dw 


63 


db 


0c0h 


db 





dw 


16 


dw 


2 


db 


lh 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 



-1) + 



***************************************************************** 

* * 

* The following DPB defines a diskette for 256 byte sectors, * 

* double density, and single sided. * 

* * 

***************************************************************** 



dpb256s dw 


52 


db 


4 


db 


15 


db 





dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


12h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) -1) + 

log2(#bytes per sector/ 128) + 1 + 

8 if double sided. 



***************************************************************** 

* * 

* The following DPB defines a diskette as 512 byte sectors, * 

* double density, and single sided. * 

* * 
***** * * ********************************************************** 



12s dw 


60 


db 


4 


db 


15 


db 





dw 


280 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


33h 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sec tors /track 



(#cpm sectors/physical sector) 
(tbytes per sector/128) + 1 + 
double sided. 



•1) + 



***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and single sided. * 

* * 

***************************************************************** 



dnl024s dw 



64 



•CP/M spftrirs /t -racle 



db 


4 


db 


15 


db 





dw 


299 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


74h 



BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



***************************************************************** 

* * 

* 
* 

* * 
***************************************************************** 



* The following DPB defines a diskette for 128 byte sectors, 

* single density, and double sided. 



dpbl28d dw 


52 


db 


4 


db 


15 


db 


1 


dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


9h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 256 byte sectors, * 

* double density, and double sided. * 

* * 

***************************************************************** 



dpb256d dw 


104 


db 


4 


db 


15 


db 





dw 


486 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


lah 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* 
* 

* * 
***************************************************************** 



* The following DPB defines a diskette as 512 byte sectors, 

* double density, and double sided. 



dpb512d dw 


120 


db 


4 


db 


15 


db 





dw 


561 


dw 


255 


db 


0f0h 


rlh 


a 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AT.l 



dw 


64 


dw 


2 


db 


3bh 



; CKS 
;OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and double sided. * 

* * 
***************************************************************** 



02' 


id dw 


128 




db 


4 




db 


15 




db 







dw 


599 




dw 


255 




db 


0f0h 




db 







dw 


64 




dw 


2 




db 


7ch 




end if 





CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB's are for the standard format to be * 

* corapatable with older versions of the Cbios. * 

* * 
***************************************************************** 



dpbhdl 



dpbhd2 



if 

if 
if 
dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 
db 



dpbhd3 dw 
db 
db 
db 



stdlog eq 

raaxhd ne 

m26 ne 

1024 

5 

31 

1 

1973 

511 

0ffh 

0ffh 



1 

33h 



1024 

5 

31 

1 

1973 

511 

0ffh 

0ffh 



64 

33h 



1024 
5 

31 
1 



;Use standard format 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 

CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 

;CP/M sectors/track 

;BSH 
;BLM 
tEXM 



-1) + 



-1) + 



dpbhdl 



dpbhd2 



dpbhdl 



dpbhd2 



dw 


1973 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


127 


db 


33h 


end if 




if 


ml0 ne 


dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1269 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33b 


dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1280 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


122 


db 


33h 


end if 




if 


m20 ne 


dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


98 


db 


33h 



;D3M 

;DRM 

;AL0 

;AL1 

;CKS 

; OFF 

;16*{(#cpm sectors/physical sector) 

;log2(#bytes per sector/128) + 1 + 

;8 if double sided. 



-1) + 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sectors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 

double sided. 

sec tors/ track 



-1) + 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sectors/ track 



(#cpm sectors/physical sector) -1) + 
(#bytes per sector/128) + 1 + 

double sided. 

sec tors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



•1) + 



dpbhd3 



dw 


672 


db 


5 


db 


31 


db 


1 


dw 


1028 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


195 


db 


33h 


endif 




endif 




endif 





CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sec tors /track 



( #cpm sectors/physical sector) 
(#bytes per sector/128) +• 1 + 
double sided. 



-1) + 



***************************************************************** 

* * 

* The following DPB's are used when the user selectes the * 

* number of logical drives . These macros divide evenly the * 

* space per logical drive where the standard format tries * 

* to create the least amount of logical drives with the * 

* most space per logical drive. * 

* * 

***************************************************************** 



if 



stdlog ne 



mdpbhd macro 


l,d 




dpbhd&l dw 


secpt 




db 


bsh 




db 


blm 




db 


exm 




if 


ldsk ne 


dw 


(totbls/logdsk) 


else 






dw 


(totbls/logdsk)-l 


endif 






dw 


drm 




db 


al0 




db 


all 




dw 


cks 




dw 


( tracks/ logdsk)*&d+l 


db 


slog 




endm 






if 


maxhd ne 


if 


ml0 ne 





secpt 


equ 


336 


totbls 


equ 


2562 


tracks 


equ 


244 


endif 






if 


m20 ne 





secpt 


equ 


672 


totbls 


equ 


5124 


tracks 


equ 


244 


endif 






if 


m26 ne 





secpt 


equ 


1024 


totbls 


equ 


6464 


tracks 


equ 


202 


endif 







; Reserved cpm track 



; Sectors per track 

; Total blocks (4096 byte) 

; Total tracks 





bsh 


equ 


5 




blm 


equ 


31 




exm 


equ 


1 




drm 


equ 


511 




al0 


equ 


0ffh 




all 


equ 


0ffh 




cks 


equ 







slog 


equ 


33h 


ldsk 


set 









rept 


maxhd 




dpbdrv 


set 









rept 


stdlog 






mdpbhd 


%ldsk. 


I dpbdrv 


ldsk 


set 


ldsk+1 




dpbdrv 


set 


dpbdrv+1 




endm 








endm 








end if 








end if 







******************************* ********************************** 
* * 

* 
* 
***************************************************************** 



* CP/M disk parameter headers, unitialized. 
* 





if 


stdlog eq 


header 


macro 


nd , dpb 




dw 







dw 


0,0,0 




dw 


dirbuf 




dw 


dpb 




dw 


csv&nd 




dw 


alv&nd 




endm 





; Translation table filled in later 

; Scratch 

; Directory buffer 

;DPB filled in later 

; Directory check vector 

; Allocation vector 



else 



r macro 


nd , dpb , dpno 


dw 





dw 


w.0,0 


dw 


dirbuf 


dw 


- dpb&dpno 


dw 


csv&nd 


dw 


alv&nd 


endm 




endif 





; Translation table filled in later 

; Scratch 

; Directory buffer 

;DPB filled in later 

; Directory check vector 

;Allocation vector 



dpbase equ 





if 


stdlog eq 




dn 


set 









if 


first 






rept 


maxhd 


;Generat 




header 


%dn,dpbhdl 


• 


dn 


set 


dn+1 






header 


%dn,dpbhd2 




dn 


set 


dn+1 






if 


(m26 ne 0) or 


(m20 ne 0) 




header 


%dn,dpbhd3 




dn 


set 

endif 

endm 


dn+1 






rept 


max flop 






hf>ar3e>r 


Zcln.a 





;Generate Hard Disk DPH's followed 
by Floppy DPH's 



dn set dn+1 

endm 

else 

rept maxflop ,-Generate Floppy DPH's followed by 

header %dn,0 ; Hard Disk DPH's 

dn set dn+1 

endm 

rept maxhd 

header % ar,dpbhdl 

dn set dn+1 

header %dn,dpbhd2 

dn set dn+1 

if (m26 ne 0) or (m20 ne 0) 

header %dn,dpbhd3 

dn set dn+1 

endif 

endm 

endif 

endif 

if stdlog ne 

if first 

dn set maxflop 

rept maxhd 

rept stdlog ;Generate Hard Disk DPH's followed 

header %dn,dpbhd, %(dn-maxflop) ; by Floppy DPH's 

dn set dn+1 

endm 

endm 

dn set ; Floppies always start at zero 

rept maxflop 

header %dn,0,0 

dn set dn+1 

endm 

else ; Generate floppies before hard disk 

dn set 

rept maxflop 

header %dn,0,0 

dn set dn+1 

endm 

dn set maxflop 

rept maxhd 

rept stdlog 

header %dn,dpbhd,%(dn-maxflop) 

dn set dn+1 

endm 

endm 

endif 

endif 

buffer equ $ 

***************************************************************** 

* * 

* Signon message output during cold boot. * 

* - . ^ 

***************************************************************** 

prompt db 80h, clear ;Clean buffer and screen 

db acr,alf ,acr,alf ,acr,alf 

db 'Morrow Designs ' 

db '0'+msize/l0 ;CP/M memory size 

db '0'+(msize mod 10) 

db ' K CP/M '■ .PP/M i/OT-c-ion nnm>-,c.T- 



db cpmrev/10+'0" 

db 

db (cpmrev mod 10)+' 0' 

db ' , Cbios rev ' 

db revnum/10+'0' , ' . ' ;Cbios revision number 

db revnum mod 10+' 0' 

if maxhd ne 

db * .' 

db mrev/10+'0' 

db mrev mod 10+ ' ' 

endif 

if ml0 

if fujitsu 

db 'F' 

else 

db ' M * 

endif 

endif 

db acr,alf 

db ' For ' 

if max flop ne 

db 'a Disk Jockey 2D/B' 

endif 

if (maxhd ne 0) and (maxflop ne 0) 

db ' and ' 

else 

db 

endif 

if maxhd ne 

if maxhd eq 1 

db 'a ' 

endif 

if maxhd eq 2 

db 'two ' 

endif 

if maxhd eq 3 

db 'three ' 

endif 

if maxhd eq 4 

db ' four ' 

endif 

if mrev eq 10 

if fujitsu 

db 'Fujitsu ' 

else 

db 'Memorex ' 

endif 

db 'M10 ' 

endif 

if mrev eq 20 

db 'Fujitsu M20 ' 

endif 

if mrev eq 26 

db 'Shugart M26 ' 

endif 

db 'hard disk* 

if maxhd ne 1 

db ' s ' 

endif 

rib ' ' 



end if 
db 

if 
db 
end if 

if 

if 

db 

else 

db 

endif 

endif 

if 

db 

endif 

db 

if 
db 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

if 

db 

endif 

db 

else 

db 

endif 

db 

db 



acr,alf 

(contyp eq 0) or (contyp eq 1) 
' Nothing ', acr, alf 



contyp eq 2 
multr3 
'Multi I/O* 

'Decision I' 



contyp eq 3 
*2D/B' 



' as console' 
lsttyp ge 2 



lsttyp eq 2 
' serial ' 

lsttyp eq 3 

'CTS protocol serial' 

lsttyp eq 4 

' DSR protocol serial' 

lsttyp eq 5 

'Xon/Xoff protocol serial' 

lsttyp eq 6 
'Centronics parallel' 

lsttyp eq 7 

'Diablo HyType II parallel' 



' printer as LST: * 



acr, alf 





;End of message 



?*** ************************** ************************* 



*********** 
* 

* Utility routine to output the message pointed at by H&L, 

* terminated with a null . 
* 

***************************************************************** 

;Get a character of the message 

;Bump text pointer 

;Test for end 

; Return if done 

;Save pointer to text 

; Output character in C 

* r^n-f* nnf fha r^K =» v- «i /~i +- *a >- 



message mov 


a,m 


inx 


h 


ora 


a 


rz 




push 


h 


mov 


c,a 


r>al 1 


nnn-h 



pop 
jrap 



h 
message 



; Restore the pointer 

; Continue until null reached 



***************************************************************** 

* * 

* Cboot is the cold boot loader. All of CP/M has been loaded in * 

* when control is passed here. * 

* * 

********** * * *************************************************** * * 



;Set up stack 

yClear cold boot flag 

; Clear group select byte 

;If 2D/B is there then make RAM copy 
,- of the jump table. 



cboot lxi 


sp , tpa 


xra 


a 


sta 


cwf lg 


sta 


group 


if 


max flop ne ( 


lxi 


h,djram 


lxi 


d, origin 


mvi 


b,33h 


call 


movlop 


endif 




mvi 


a,intioby 


sta 


iobyte 


if 


contyp ne 


call 


tinit 


endif 




if 


lsttyp ne 


call 


linit 


endif 




lxi 


h , prompt 


call 


message 


xra 


a 


sta 


cpmdrv 


sta 


cdi sk 


if 


(maxflop ne 


sta 


flopflg 


endif 




lxi 


h,bios+3 


shld 


bios+1 


jmp 


gocpm 



;Size of jump table 
;Copy table 



;Do not call tinit for PROM's 
; Initialize the terminal 



;Do not call linit for PROM's 
; Initialize the list device 



;Prep for sending signon message 
;Send the prompt 
; Select disk A 



if 



contyp eq 2 



; Patch cold boot to warm code 



;Multi I/O, Decision I 



***************************************************************** 

* * 

* Terminal initilization routine. This routine reads the sense * 

* switch on the WB-14 and sets the speed accordingly. * 

* * 

***************************************************************** 



tinit 



Ida 


group 


orx 


cbngrp 


out 


grpsel 


in 


rbr 


in 


rbr 


xra 


a 


out 


Isr 


out 


ler 



;Get group byte 

; Select console device 



;Clear reciever buffers 



; Clear status 
;Set no interrupts 



btab 



if 


not multr3 


Ida 


group 


out 


grpsel 


in 


sensesw 


ani 


0e0h 


rlc 




rlc 




rlc 




cpi 


7 


push 


psw 


Ida 


group 


ori 


congrp 


out 


grpsel 


pop 


psw 


jz 


valid 


lxi 


h^btab 


add 


a 


mov 


e,a 


mvi 


d.0 


dad 


d 


mov 


e,m 


inx 


h 


mov 


d,m 


jmp 


setit 


dw 


1047 


dw 


384 


dw 


96 


dw 


48 


dw 


24 


dw 


12 


dw 


6 


endif 





;Multi I/O has no sense switches 

;Get group byte 

; Select group zero to read sense switch 

;Get sense switch. 

;Mask in upper three bits 



;Move into lower 3 bits 

; check for sense = 7 

;Save value 

; Get group byte 

;Reselect serial port group 



;Do default rate 

; Pointer to baud rate table 
; Table of words so double 
;Make a 16 bit number into (de) 

;Get a pointer into baud rate table 

;Get lower byte of word 

; Point to high byte of word 

;Get upper byte, (de) now has divisor 

;Set baud rate. 



110 Baud 


000 


300 


001 


1200 


010 


2400 


011 


4800 


100 


9600 


101 


1*200 


110 



**************** ************************************************* 



* 
* 
* 
* 
* 
* 
* 
* 
* 



The following is a list of valid baud rates. The current 
baud rate is checked on cold boot. If it is not in the 
vtab table then the baud rate will be set from the defcon 
word found below the Cbios jump table. If the user 
happens to have a weird baud rate that is not in this 
table or is looking for a way to save space then entries 
can be added or deleted from the table. 



* 
* 
* 
* 
* 
* 
* 
* 
* 



***************** ************************************************ 



vtab 



dw 
dw 

dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



2304 

1536 

1047 

857 

768 

384 

192 

96 

64 

58 

48 

32 

24 

16 

12 

6 



50 baud 

75 

110 

134.5 

150 

300 

600 

1200 

1800 

2000 

2400 

•1600 

4800 

7200 

9600 

19200 



svtab 



ectu 



($-vtab)/2 



■Lenath nf tTne> ut-ah f-ahl o 



************************************************************ 

* * 

* Valid checks if the divisor latch is a reasonable value. * 

* If the value seems off then it will get the default baud * 

* rate from defcoii and jump to setit. * 
*' * 
*********** * * **************************************************** 



valid 



vloop 



vskip 



mvi 

out 

in 

mov 

in 

mov 

mvi 

out 

lxi 

mvi 

mov 

cmp 

jnz 

inx 

rnov 

cmp 

jz 

dcx 

inx 

inx 

dcr 

jnz 



nvalid lhld 
xchg 



setit 



mvx 
out 
mov 
out 
mov 
out 
mvi 
out 



a,dlab+wls0+wlsl+stb 

lcr ;Access divisor latch 

dll ;Get lower divisor value 

e, a 

dim ;Get upper divisor value 

d, a 

a,wlsl+wls0+stb 

lcr 

; Valid baud rate table 

; Length of the baud rate table 



h, vtab 
c, svtab 
a,e 

m 

vskip 

h 

a,d 

m 

done 

h 

h 

h 

c 

vloop 

defcon 



; Check low byte 
; First byte is bad 



; Check high byte 
?Baud rate is OK. . . 

;Skip to next entry 

;Bump entry counter 



;Get default baud rate 



Do cleanup 



a,dlab+wlsl+wls0+stb ;Enable divisor access latch 

lcr ;Set the baud rate in (de) 

a* d 

dim ;Set upper divisor 

a , e 

dll ;Set lower divisor 

a,wlsl+wls0+stb 

lcr 



done 



tinit 



linit 



xra 
out 
ret 

endif 

if 

call 
rnz 
call 
jmp 

endif 

if 

Ida 
ori 
out 
mvi 



a 
lsr 



contyp eq 3 

djtstat 

djcin 
tinit 



;Clear status register 

;Multi I/O, Decision I 

;2D/B console initialization 

; Clean input buffer 
;A11 empty 



;2D/B console 
(lsttyp ge 2) and (lsttyp le 5) ; Serial Multi I/O list drivers 



group 
lstgrp 

grpsel 
a,dlab 

Tnr 



;Get group byte 
;Select list device 

;Access divisor latch 



Unit 



dloop 



lhld 


deflst 


mov 


a,h 


out 


dim 


mov 


a, 1 


out 


dll 


mvi 


a , s tb+wls 0+wls 1 


out 


lcr 


in 


rbr 


xra 


a 


out 


ier 


ret 




endif 




if 


lsttyp eq 6 


Ida 


group 


ori 


denable 


sta 


group 


out 


grpsel 


xra 


a 


out 


daisil 


mvi 


a,d9+dl0 


out 


daisi0 


mvi 


a, 10 


dcr 


a 


jnz 


dloop 


mvi 


a,dll+d9+dl0 


out 


daisi0 


ret 




endif 




if 


lsttyp eq 7 



;Get LST: baud rate divisor 
; Set upper baud rate 

; Clear input buffer 
;No interupts 

;Multi I/O parallel, Centronics 

;Get group byte 

;Set driver enable bit 

; Select group zero with drivers enabled 

;Zero out data 

;Set strobe high, init low 

;Wait about 50uS for printer to initilize 



? Diablo HyType II 

***************************************************************** 

* * 

* Initialize Diablo HyType printer. If the printer fails * 

* to initialize then the output drivers will be turned off * 

* and any attempts to print will result in redirection to * 

* the console. * 

* * 
***************************************************************** 



linit 



dloop 



if 


multr3 


Ida 


group 


on 


denable 


out 


grpsel 


on 


restore 


out 


grpsel 


mvi 


a, 10 


dcr 


a 


]nz 


dloop 


Ida 


group 


out 


grpsel 



linit 



else 

Ida 
out 
mvi 
out 
mvi 
out 
mvi 
out 



;Multi I/O initialization 

;Get group byte 

;Add driver enable bit 

; Toggle restore high 

;Hold line up for 50uS 



;Turn denable and restore off 
; Mother board initialization 



group ;Get group byte 

grpsel ; Select group zero 

a,pselect+rlift ; Set select line active, rlift not active 

elk 

a,0ffh 

daisi0 

a,0ffh-restore ?Strobe restore bit low 

daisifeJ 



mvi 


a, 10 


ciioop dcr 


a 


jnz 


dloop 


mvi 


a,0ffh 


out 


daisi0 


endif 




xra 


a 


out 


daisil 


if 


multr3 


Ida 


group 


ori 


denable 


out 


grpsel 


mvi 


a,0f fh-restore 


out 


daisi0 


else 




mvi 


a,pselect 


out 


elk 


endif 




linit9 lxi 


h,hinc/cperi 


shld 


hmi 


lxi 


h, vinc/lperi 


shld 


vmi 


lxi 


h,0 


shld 


vpos 


shld 


dlvpos 


shld 


hpos 


shld 


dlhpos 


shld 


lmar 


call 


clrall 


xra 


a 


sta 


kludge 


sta 


dirf lg 


sta 


grhf lg 


ret 




endif 




db 


0,0ffh,0 


ds 


512-($-buffer) 


if 


max flop ne 


ds 


512 


endif 





?Wait about 50uS 

; Raise restore back up 

?Clear data buffers 
;Lift ribbon 



; Re-enable the drivers 
;Pull -ribbon lift down 



; Re-enable drivers and lift ribbon 



; Save hmi = 120/ (characters per inch) 

;Save vmi = 48/ (lines per inch) 
; Other variables default to zero 



; Clear the TAB array 
; Reset TAB clear byte 



;Maximum size buffer for 512 byte sectors 
; Additional space for floppies Ik sectors 



***************************************************************** 

* * 

* Cbios ram locations that don't need initialization. * 

* * 
***************************************************************** 



cpmsec dw 

cpmdrv db 

cprntrk db 

truesec dw 

bufdrv db 

buftrk db 

hnf OOP r\ui 













a 



CP/M sector # 

CP/M drive # 

CP/M track # 

Disk Jockey sector that contains CP/M sector 

Drive that buffer belongs to 

Track that buffer belongs to 

Sonf nr l-Via-h Viii-F-Fssv hoi nnno +-r™> 



dirbuf 


ds 


128 


alloc 


macro 


nd, al,cs 


alv&nd 


ds 


al 


csv&nd 


ds 
endm 


cs 



; Directory buffer 



dn 



set 









if 


stdlog eq 




if 


not first 




rept 


max flop 




alloc 


%dn,75,64 


dn 


set 
endm 


dn+1 




rept 


maxhd 




if 


m26 ne 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 
endif 


dn+1 




if 


ml0 ne 




alloc 


%dn, 159,0 


dn 


set 


dn+1 




alloc 


%dn, 161,0 


dn 


set 
endif 


dn+1 




if 


m20 ne 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 129,0 


dn 


set 

endif 
endm 


dn+1 



else 





rept 


maxtid 




if 


m26 ne 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 
endif 


dn+1 




if 


ml0 ne 




alloc 


%dn, 159,0 


dn 


set 


dn+1 




alloc 


%dn, 161,0 


dn 


set 
endif 


dn+1 




if 


m20 ne 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 129,0 


dn 


set 

endif 


dn+1 



endm 

rept raaxflop 
alloc %dn,75,64 
dn set dn+1 
endm 
endif 
endif 

if stdlog ne 

if maxhd ne ;Make up hard disk allocation vectors 

dn set maxflop ;Hard disks always start after floppies 

rept maxhd 

rept stdlog 

alloc %dn,((totbls/logdsk)/8)+l,0 

dn set dn+1 

endm 

endm 

endif 

if maxflop ne ;Make up floppy allocation vectors 
dn set 

rept maxflop ; Floppies first 

alloc %dn, 75,64 
dn set dn+1 

endm 

endif 

endif 

end 



